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leniil 0z IBM-ugy vo't 

tigye - leg^libbis itthon. A sajti^ 
Ic^gkuloribdzobb fdrumain mdi" 

csDntot. MegTrtdk m^r, hogy 
mi^rt jd* ^ hogy mi^rt ro$s^ 
a kdsTponti p^nzeszkd^ok sz«t- 
o^ztisa a kufdnbbzd cegek 
k420tt, hogv mennvire ma^erE^- 
ge$ek a versenyak ilye^fajta 
hszai szabdlvc)f^sa^r hogy 
5zerint mi^rt igazs^gtalanok 
a p^n?a2rdtf>QZlAs param€1erei stb. 
Minrfezekrai tehM nekunk mir 
nam erdemes irni. Iiis2«n 
eiattunk mir mindent lairtak. 
(tahet per sja, hogv nam 
mtnderkt, mi mindanesetra nam 
ludunk ujabb szempciniokat fol- 
sorplni. Marad^ktatanul tigyan 
nam ^rtiink egyet agvik vela- 
mdnny^^l &am. da ajpcal m^gsem 
akarjuk untatnf olvas6t0 
Egesz m^sdrt hoztufc Sif6ba 
a bavi ma^l^klatiink cfm* 
DidftlAn ezt a t^m^t. 
R^i mdni^nk jutott e^zunkbe 
ai ugy k^pc^sn. A t^n^csadbi 
szakma hianya k»s hazaFikbar^. 
Vanaak ugyan akik ily^^fele 
tandcsaddnak nevezik magukat. A? iltal^n^a tapasztalat 
flzonban az. bogy azak B2 gnjeloh szakemfearek m^gtia nem \% 
rcisaz szakemborak, egy-agy c*g elkotelazett hivei. s6t gyok- 
ran munkakdnyves vagy csak jdl f izatett munkSfUrsai. Men 
mi (enne. mi a dolga a vif^g fejlettobb orsz^gaiban az iTyan, 
ugynevezati tan^csadbknak? Van egy c^g, amely aJbaUroi^ca. 
hogy g^pQt, g^pak^t vasz, Tudja. bogy mi a saj^t c^ga dpiga, 
van ia tfalamllyen a^kepza^^sa arr6L hogy mindezt. tiogyan 
lahatna 9£peshani, nam ismari azpnban - minthogy nam is 
dolga. r»em is szafcm^ja ^ a siAmitdg^pas piacot F6lkeres 
tehit egy fiiggattan tanScsaddS iroddt #5 tandC3ot kef. Ta- 
nacsot arra vonatkozdan. hogy ai ^dott c^g adoti taladatatt 
milyen gepekkel lahatoo leghat^konyabban es laggazdas^go- 
sab ban vdgreliajmni. A tanJicsadd tarmaszatesan a tan^cfl 
adisakor namcsak a azamttSsba jdhat6 g^pak tudj^aMn m»* 
fporiakapacit^sax^ pariMridt kali, hogy figyalamba vagy4r 
ha nefn a Szuksegaa a^oflvaftiitterat. azok ^r^t, a kulanlagea 
ig^nyaket stb. Egyszoval nagyon sokfdle szannpontot. 
Mondhatnlk a kadves olvaspk. hogy da hls^an az IBM kpm- 
palifailis g^pekn^l ezek a dolgpk azono^k. Ig^^z is mag nam iS. 



Tudunk olyan IBM kompa- 
tFbJlr$ g^pfol p^ldauL amalyari 
nem Idttunk magyar 
^kezatas szovagszerkesztdt, 
hglott a g^pek tpbbs.^g^re 
ilyat mSr kifejlc$ztattak, 
A kompatibnUa^ m^rteka mint 
tudjuk ku^onbozo. Azutan az 
Sam mtnde^y, hpgy egy adPtt 
upftvart m egyrk cign^l 
5D DOO-drt, agy m^sikn^l agy 
misik komjjatibilis g^pre 
ugyartezt 100 000-dft kapni. 
A kdt azoftver kozdtt parsza 
nam aak a kuldnbsag, mag az ts 
aldfordul. Hogy mindkatl5 
u^yanannak a nyugati t^rmak- 
nek a mag yaritott, I a pott 
v^lTPzata. Az druk kozt azon- 
ban,„ Nyan esetben a tan^ov 
add kLitya kdtalai^s^ge laone 
az ilyan eltaresakra folhivnt 
a vevo figyatm^t. tudva azt« 
hogy az adott ^zofivar a v^vfi 
^rdaklfid^ai kordba 
tartozhat. 
Myilvinvald tah^t hpgy egy 
ilyfiTi tan^csadpj tradan te^tulat 
akkor tblttiatn^ ba szarepdt^ 
ha a gy^rtoktdl, aladdkldl 
fuggatlan lanne^ 
M^rpedig egy ilyen ceg fdl- 
allitasahoz. muk^dtatasahane penz kallane. P^nz as nem is 
kaves panz. (Az m^r tr\k% dplog, hoyy megfalat5 $jkar^s mQ- 
kddaa H^titan agy ilyan ci^ al6bb-ut6bb nyarcsegaf^sa is 
vSlhatna) 

iKt az aratnek gpndolat jutott az aszembe, hogy ha mar Uyan 
lokdlete^ kondtcibkat taremtett a hazai gazdasAgirAnyitSs 
n^h^oy cag ^zdm^ra az I BM kompattbtlts g^pek tari^^zt^s^haz. 
nam ^dtalezhatta volna-a ugyanezeket a c^gakat agy ityem 
tatidcsaddi szolgatat kdzos t6kab6l vald ^alSllitds^ra. Ily- 
mddor) ugyania garantalni lahatett volna, hogy a tan^csadd 
ceg egyik fdlnak sem iakatelazattabb a mdsfkn^L Minda^t 
tsak fek^teles rnddbah Irhatjuk Ee. Tan^csaddi Iroda t^tra- 
hozAs^hak eddig ygyanfs m^g a gondQlatfl seim v^tdddtt fcK 
Marpadig a gopat. szoftvert gy^rtdk illatva aruldk ko^ti 
varseny igaz^bdl c^k akkof johatne latrc, ha a potanci^lip 
v^^^rl6kfiak is magadatna a^ aii^fy a w^s^rta^ aldtti ra^lia \h- 
j^kozdd^sra. a kln^latok kd/tl aligazod^sra Ma. ^zarvezatt 
tan^csaddi appaf^us ndlkiil az vagy csak Slom, vagy otszar 
annyiba kefula tdj^kd^ddni akardoak. S ahbaz nam kap hiialt. 
vagy ^ll^mi t^mpgai^st senkr Angyafosi LSszt6 



bbl0lr6l 



Hiroldal ~ amelyben megn^zhetik maguknak a Commodore Amiga legujabb vAltozat^t, a 2000-est 
Els6 kSzbdl a tv computerrfil - a be^pitett rutinok kozul most a billentvuzetkezelfikkel ismerkedhetnek 
ProgramajSnlat ^ 16-6si^t6k HT-re 
Programajinlat - Primo stopper 6ri^s sz^mjegyekkel 
Backtrack - egy programoz^si m6dszer rejtelmeibe vezettetunk be 
Miazaborona? - azon kfvul, hogy egy mez6ga2das^gi szersz^m. megtudhatj^k 
SzSliegyzet a BETA BASIC hib^iboz - a hibak, amelyeket a mult havi sz^mban kozzetettunk, 
mostanra ujabba I eg^szultek ki ! 
^ MiKBO MEN ~ Hogy mi ez, megtudhatj^k. ha odalapoznak 

@ SORVEZETS - egy regi rovat uj kontosben, uj tartalommal, valtozatlan alapkoncepci6val - hogy segitsunk a szakkoroknek ! 



KSnyvmofy - megr^gcs^lta az informaci6gazdasagr6l keszjlt tanulmcinykotet mind a 234 lapj^t 
Posta - amelyben egy olvasdnknak elmondjuk, hogy mi az a GEOS, mire 6s hogyan lehet haszn^lni 
P/usf4 nyerff 2. feiadat megold6sa - egy nagyon bonyolult feladat megold^sa hi^nyosan. 
(Ha teljesen elmeruln^nk benne, sohasem 6rn6nk a v^g^re) 
Atari nyerS - ez meg egy uj pSIy^zat a Sk^la j6volt4b6L 
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BILLENTYUZET 



RUTINOK 



A be^priett rutirok lefr^s^t ^ biltentyuzelkezel'^vel folytatjuS;. 

A bh!lentvu2et. valafnint n be^ptmit a kijfs6 boTkorm^nyok Eeofvasi- 

sAi v^gzik. A haKtnalt rendsz^rvfilm^6lc a kovetkozSk: 

PICTURE fO dyie, cfme 2897=0851 h 

A biSfenlyuzetm^trix utolj^fa leotvaRott 4rt*ke (ISbcJ 1. labjteat) 

OLDPICTURE to byi&. c/me ZB07=QB5Bh 

A billentyuzetm^trix eldzflleg leolvasott 6rtdke 

DELAY KEY ; byte, dme 2917=0B65h 

Az automatikus bilienty0zetism6tl4s kezdet^hez szuks6ges \d6 20 

ms-os egys6gben. BASIC-b6l a SET DELAY Sllftja. 

LOCK KEY 7 byte, dme 2918=0B66h 

Az aktu^lis kurzor (LOCK) dllapotdt mutatja: 

0 normdt karakterek (LOCK, normal kurzor) 

1 nagybetQk (LOCK+CTRU inverz C kurzor) 
2folyamatos shift (LOCK+SHIFT, inverz S kurzor) 

S alternate karakterek (LOCK+ALT. inverz A kurzor) 
RATE KEY / byte, dma 29iB^0Bd7h 

Automatikus billentvuism^tl^s a I alt a k^t karakier m&gjetandse elfitti 
idm adja 20 ms-os sgys^gb^n. BAS1C-b5l a SH" RATE AIIEt|a, 
HOLD DIS 1 byte, dm^ 2320--0B63h 

JelzL hogv 3 CTRL+P ^gvuttes lanyom^saval f&IFijgoeszthetfi-e a 
rendszer mukod&se. (PL Iist6^^$ f^lbeszakithani) 
0 H0LD-m6d enged61yezve 
255 H0LD-m6d tiltva 

A rutinok lelrdsa: _____ . > 

KB D IRQ hfv^si kdd: 144 (90h) 
m0k6d6s: A billentyuzetmMrix leolvas^sM v^gzL 
Felhaszn^ldi programb61 nem ajSnlott hlvni. 
KBD CHIN hMsfkdd: 145 (91 h) 
output: C=karakter vagy botkormSny k6dja 
A-hibak6d 

mukod^s: A billentyuzeten leutott karakter, vagy a botkormany el- 
mozdit^s^nak k6dj5t adja. Megv^rja. amig 6rkezik k6d. 
KBD STATUS hlv^si kdd: 147 (B3h) 
output: C=ielz<5 

0 nines beolvashat6 karakter 

255 beolvashat6 karakter 
mQkodds: A bilientyuzet, ill. botkormdnyok stitus^t adja 

% billetttyuzdt kozvetien l6olvasi«a 

A^btllontyuzet/ilL botkofrn^nyok kozvetlan lebivas^s^ra is ssjuks^g 
fehei egyes proeramokbart. 

Az ?. tibtAist m^gedja a billentyOzelrn^trixot. Ennek leolvasasahoz 
el^izojr ki keJl v^Easztari a matrix rmegfelelfi sorSi i^B), ds ^zt a 
3, ponra az alsd ^ biten kikuldertin A beolvasAs 58h portrtl lor- 
t^nik. Az a bilienty^l vol I Appen lenyomva. am^lyfkhez tartoz6 bit 
^rtdkez^rus^ . . 

A 3, port egy^b biiiijinek is van j&lent^se. ^ztn a sofkivftlas^Ust az 
utolj^ra kikuldott byte a1s6 4 bitje h^lydbe kail iml *5 Cgy kMldsnj. 
A m&9fdBl5 fandsiervfiltGz6: 
PORT03 ? byiB. dniB 2333=081 th 
hit!, bii6: b^vftOkirtya klv^laszlAs 
hit3-ht£0: billentyQzetm^trix sorkivala^it^s 

PL Bbhoz. hogy 3 flETURN biUantyC le Vnan-e ryomva. az 1. tSbltoT 
alapiAn aj: 5, sor 4. bitj^t Nell vi;fsgfilni. Ezt a vszsgllalot v^zi el az 

program g^pi ktSdii rutsnja. Ha visszat^r^skof a ZERO 
flkkor laen. egy#bkdnt ped^g nem volt a RETURN (enyomva. 
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l.t^bl^zat: Billentytlzet-m^trix a TV-Computeren . 
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A rovidit^sek jelent^se: 
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1 program 



TV-COMPUTER 

RETURN bxllentyt: figyel^se 
a bi 1 lentytizet-m^itrixon 



A g^pi kodu 


ruxi n , 










= 0B11 




POST03 


EQU OBll 


24 3 


F3 




DI 




58 , 17 , 11 


3A' 11 


06 


LD 


A , (PORT03) 


230 , 240 


E6 FO 




AND 


OFOh 


246 , 5 


F6 05 




OR 
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50 , 17 , 11 


32 11 


OB 


LD 


(PORT03) , A 


211,3 


D3 03 




OUT 


(3) ,A 


219 , 88 


DB se 




IN 


A, (BSh) 


203 , 103 


CB 67 




BIT 


4 , A 


251 


FB 




EI 
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C9 




RET 





; 4 .bit 




25 



Egy hasznos segedprogram: APPEND 




Kor^bban m^r ismertettuk a MERGE- 
elj^rast programok osszefesulesere. 
Az ott bemutatott nn6don tetszoleges 
programot be tudunk illeszteni a me- 
mbn^ban levo programunkba, Csup^n 
egy apro kenyelmetlenseggel jar a 
dolog: a beszLirand6 programbol lista 
file-t kell kesziteni, es ezt kell szalag- 
r6\ leolvasni. Nemi programozasi ,,aN 
dozattal" gyorsabb es egyszerubb 
megold^st biztosit a 2. program, A 
listJbbl csup^n az 1. es 2. sort kell 
beg^pelni, a tobbi sor csak a mukod^s 
konnyebb meg^rtese miatt szerepel. 

Az emiitett programozasi aldozat a 
kovetkezo: a programokat ugy kell 
megirni, hogy az egyes reszeknek ku- 
lonbozo tartomanyba essenek a sor- 
sz^mai. PI. a f6program sorszamai 
100-999 tartomanyba esnek, a hoz- 
z^ tartoz6 kulon megfrt szubrutinok pi. 
az 1000-1999, 2000-2999 stb. tar- 
tom^nyt hasznaljak. Lenyeges, hogy 
ne legyen atfedes! A hasznalt leg- 
kisebb sorsz^rn a 3 lehet, mert az elso 
k^t sorban van az APPEND progra- 
munk. Ezek ut^n johet az osszefuzes. 



sorszamok szerint novekvo sorrend- 
ben ! 

Eloszor betoltjuk az APPEND progra- 
mot es elinditjuk; 
RUN 

Az /. abra szerinti kepet fogjuk latni, 
a kurzor a 3. sor elejen villog. Ket 
RETURN ut^n a kurzor a 7. sorban 
levo LOAD elejen vtllog. Ha szuks6- 
ges, befrhatjuk a LOAD moge idezo- 
jelek kozott a betoltendo program 
nevet, Ujabb RETURN-re a gep ki- 
irja: 

Searching 

Most kell a legkisebb sorszamokat 
tartaimaz6 programr^szletet betofteni. 
Legyen ez pi. a ^FOPROGRAIVI" ne- 
vu. Ha a betoltes kesz (2. abra). 
nyomjunk meg nehany RETURN-t 
amig az alul levo sorokat is vegrehajtja 
a BASIC (3. ^bra). Most ujabb RUN 
paranccsal kezdve ismetles, amig no- 
vekv6 sorszamok szerint az utols6 
programr^szletet is be nem olvastuk. 
Ezut^n kitoroljuk az APPEND prog- 
ramot; 
DELETE-2 



es kjmenthetjuk SAVE paranccsal az 
osszefuzott egesz programot. 

A program mukodesi elve 

a 2. program listajaban szerepio rdvid 
gepi kodu program megkeresi az ak- 
tualis BASIC programunk veget. A 
BASIC program kezdoci^nnet a TEXT 
rendszervaltozo tartaimazza (cfme 
5922-1722h). Az elso ket POKE uta- 
sitas atallitja a TEXT v^ltoz6t, fgy az a 
programunk v^gere fog mutatni. Eny- 
nyi azonban nem eleg a betoltes elott, 
mert a LOAD vagy NEW utasitas ha- 
t^sara a TEXT valtoz6ba beirodik a 
BASIC sz^mara haszncilhat6 legkisebb 
cim. Ezt ^llitja ugyancsak a program 
v^gere a m^sodik k6t POKE. Az emlf- 
tett rendszervaltozo a VLOMEM (cime 
5920=1 720h). Ezek ut^n a BASIC 
m^r ,,nem l^tja" az APPEND progra- 
mot. a betoltott uj program fizikailag 
megis ennek folytatcisak^nt kerul a 
mem6riaba. A harmadik k^t POKE 
vissza^llftja VLOMEM-et, a negyedik 
ketto pedig a TEXT-et az eredeti prog- 
ramkezdetre. Ujabb RUN-ra az eljcir^s 
ism^telheto. Cs. T, 



2Sd 



sort kell begepelni 



\ , program 

1 AS='*" :F0RI=lT0i3:READB;A$-A$llCHFS{B> : NEXT ; T-USR ( 2+VARPTR ( A« 
\ iTH^lWT£T/256) : IL=T-2SS" TH : RCL^ PEEK { 5^22 ) ; RGH^ PEEK (5923 } : GSAPfl 
: 5A : PRINT " • Betdl t^s elOt t : " : PRifJT : PR 1 PIT " pc;jkeS922 . ; TL ^ " : poke592 
, TH:PRI NT tPRINT"poice5920,*'; XL;*' J pokeS92l /'jTH 

2 PRINT : FaiNT"load** : PRINTATIS. i : "*Betblte3 U t^n : " : PR INT'^pokeS 
20 , " ^ KCL ; 1 pokeS921 , *' ; RCH : PRINT ; Pft INT"pokeSg22 , " ; RCL ; " i pokeS923 

;RCH;PRrNTAT2, 1 f 
S 36,24,246 
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BASIC programok tissK^f^s^sa 
f APPEND ) 
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= 1722 


TEXT 


EQO 


I 7 22h X pr ogr am 


■.-iO 1 












ISO 1 


42.34,33 


22 


17 


LD 


HL, <TEXT> 


160 ! 
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LD 


A. (HL) 
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A7 




AND 
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210 ! 
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220 ! 


48,249 


30 F9 
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240 1 


2^ 1 2^6 


18 F6 
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' Be t o I t ^ M t .^n : 



2^ 



> WToTr3nr~*T7rT-T-: 

^( o k e ^ 9 a . ^ V : P o k ^ 9 ? J . ?Z 
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|j cj k e ^ :e a ^ ^7 : p o 4? y n » Z.^ 
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t Be? toMt^^ ul^n: 
poke592e, 23^ : p ok t^-^f 9P 1 . 
Ejik 

poke5'l22, 233 : poie<?"i'?P I - 

ok 

□ 





Egy osregi jatek. Megvafdsitasa programozdstech- 
nikailag is szellemes. A jatek maga pedig m^ig 
erdekes. 

Hasznalatahoz valo informaciokat megadja a prog- 
ram. 

Feiepitese: 



50 
60^0 



90 

100-110 



130 
140 



150-220 
230-240 



Keret 

0-9 a nagym^retu szamok eldallitasa 
A$(0)-AS(9)-be. 

(Azt hasznaija foL hogy a szamok csak 
9 f^le karakterbol allnak.) 
Ugyanez 10-15-ig, 

A szamok el6 szokozok, A(X,0)=az X szdm 

helye a k6perny6n A(X,1) = az A(X,0) he- 

lyen l6vo szam. 

D $-ban a jo sorrend. 

Osszekeveres 

Fpprogram. Benyomott betut hasonlitja 

nyilakkal, ettol fuggden a n6gy ir^nyito 

rutinra ugras. Ha B $ egyenl6 D $-ral, akkor 

ossze van rakva GOTO 230 

(B$ az allSsnak megfeleloen vSltozik az 

ir^nyfto rutinokban.) 

Iranyit6 rutinok. 

"UJRA?" 



M6ricz Zsigmond Gimndziumszakkore-Tiszak^cske 




15 ^+4^ 15- OS JATEK + + 

2e KEBZlfEtTE: PETRDV FERENC -f^- 

4e ClEm l*^0^DEFlNTA™2tDIMAM(16) fAClA^l) 5CLS 

50 FORX-25T092sSETCXtl33 fiSET<X?4e) *NEXT : F0RX=^^^i3TD4e5SET <24f X> f SET <25 ^X) sSET(92fX 
} "SET ^ 93 1 X) 2 NEXT 

ii AM=''l2ei31143l791711'*a2aB17A":FOR}<=n0LENtAw)STEP3s»M(<x-l)/3>=CHRM<yA^ 
A»»*»3) ) > eNEXT 

DRY=lT06!Aa(X>=A^fX)+p:=!(VAL(MIDK(AX.X»6+Y»l) ) > : IFY=3THIi:N(^« (X) *A>( ()(> <26) +STR 
89 NEXT YfX 

99 F0RX=ieTai5 = AM{X)=tAK(l>+" "+CHRw (27H'AH CVAL <R1GH m<STR5^ (X) f 15 ) ) iNEXT 

100 FaRX=lTQi5:A*t{X>=A¥(X>+" " i IFX< IftTHENAw (X> ''+Am(X> 

110 Y=32S+FIX(X/4-. 1)^(128+ (X-FIX<X/4-.l>*4)*8!pRlWTtYpA^<(X) » :A{Xt«) =Y:A (X»l)=XsB 
:<t=BK+CHRK (X) :NEXT = B«^B«+CHRkC16) s£is=Ef>c 

120 A:«C16) = " "+CHR:«:(26)+5TRIN6:<':(8»24>+" " sA^^ldsA <A5'«9>==741 :X=16 

130 PRiNTeOf "OBSZEKEVEREM! " ; F0RU==1TQ2<&«' : ONRMD (4 ) G0SUB17* * 15« . 21(? » 190 sKEXT s PR! MT 

"SZAMOK BETOLABA AZ URES HELYRE A NYIL.AKKAL t" 
140 Am=]:KKEYs:ON ABS ( (Am^=" A" ) + <A:":=CHR>: C 10) ) (Aw=C!-IRm <8> ) (As^==CHR»: C9) )*4>G0SU 
B170» 15«)«210v 19^5 IFBK--^BJ»;T!-!EN23®:€LSE140 

1S0 3;FX>4THENA<X»l)"A<X-4fi) spRlNTl^'.A <X-4f SO .A^dA) sPRirNTSA (X*0> f A?-": C A (X--4» in i :B 
s=f_EFTa ( BH . X-5 ) •••CHR>: { 1 A> +«1 D;« ( B:": y X-3 > 3 ) +M 1 D:": C 9:^^ » X-4 ? 1 ) +Riatn>: < ? 1 A--X) ! X-X"-4 
160 RETURN 

170 IF X<13THENAfX>.l)=A(X+4yl> SPRINTIJA <X+4 , ? A:«: (16) ? sPRINT^A (X»0) p A:«« <A (X+4 » !>) ; 
5B;<':=LEFT>; (BWf X-1 > +Mn:i:« (Bw » X+4 f i > -rMIEw (B:« ? X-f 1 »3) +CHR>: (16) +RI!DHT;«; (B^!* 12">C> :X=X+4 
180 RETURN 

190 ]; F ( X - 1 ) / 4 <> I N T ( ( X ~ 1 ) / 4 ) T H !:N A ( X » 1 ) =^ A ( X 1 y 1 ) R I N T £ A ( X - 1 ^ ) >^ A :^ ( 1 A ) ? 5 P R ;[ N T g: A ( X r 
0) , A:« (A (X-1 » 1> ) ; sBw^LEFT:--': (Bs t X--2 ) +CHRw (.16'; •*-HID.'( (B:-:fX-1 ? 1 -^-R I BHT>: lit -X)! !:X:--^X--1 
290 RETURN 

21« IF {X/40INT (X/4> ) THENA «Xt 1 ) =A (X+1 r 1> : PRINTEA <X+1» 0) r A« ( 16> « tPRlNT^A <X»»> f A«t 
A(X+lf 1)> i :B>:=UEFTa tBJtfX--l)+MlDW(BHrX+l» l>+CKR^tJ.6>+RI6HT><(B»tlS-X)'sX=X+l 
22« RETURN 

23« PRlMTee^'UeORE SIKERULT OSSZERAKNOD ! " ? spRlNTlS44r''JATSZ0l HE 

G EGYET ? £!)-( 

240 Aw=INKEYW!lFft*f*''I"THEHJ4tJNCLSEj;FA-«="THEH24» 
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stopper 



PRiMO 

arias s^amiecivokkel 



10 
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Koakfldvelt prog ram az^ei fol&dai a stopper fttoJtiSsa - alapviltozat^t mdr ^ 
kezd^k h ksprdbaiiik, A most kazoli megold^^ magasabb igfinyefe^it is kiel^gir 
porto&abb a szokisos BASIC idtot^sn^l, a azAmjegy^^k pedig a normdl kerakier 

Ezt tefm^szetBser g^pi fcfidij s^ubrutmokkat ddottam meg, flmelysit a maguk 
npmfibcr^ nagyon egys^ertiek. TanulOk sz^mSra ^ppen arra fehetnek bStof!t6 
pildSk. hogy f^tsz61ag b<:involu1t faladatok is meglepfien l^ovs^emsFthelfik. 
Ai Mm^T6 {tulajdonk^pperi k^^eltetiS) wbrutin tizeii mfi^odpercet m^r. 
Mivfll a kijal24s eg§3a mSsodpflrces, arre csak as^rt van Ezukfidg. hogy a laSI!ft6 
biMBntyLnvomSsrs azor^fial reag&IJon a g^P. teljes&bb Tegy^n sz iltei^. A azub- 
rutin assembler alakja: ^ , , 

b-i^ „ ^nncU ^ icl6m6r6s finom szab^lyoz^sa a CFH (207) 6rt6k 
Pi^ r c^ d^felUrH m6dosit^s^val v6gezhet6 el. 
■ ^^-.^^^'^ A sz^mjegyek rajz^t a k6vetkez6k6ppen ^llftjuk e\6, 

LO H ^ D ^ ROM 1 2791 -es cfm6t<5l kezdve tal^lhatd a karakterek 

OR E k6dolt mint^zata 8-8 byte-on (az A tipusjelu g6peken 

-IR H2.f FBH a 30-as. a B jeiCeken a 26-os ASCII k6dt61 kezdve 
RET k^szult a t^bl^zat). Bonyolult 6s lassu lenne minden 

egyes szimiegyrajzoi^shoz innen dek6dolni megjelenftenL Ehelyett csak 
egyszer v^geztetjuk el a dekddol^st a program el6k6sz(t6 r6sz6ben: a sz^m- 
jegyek adatait c6lszeru form^ban ^tm^soltatjuk egy szabad tdrol6teruletre. 
Minden szimjegy 7x5 pontes m^trixban jelenik meg - az uj tSrol^s viszont Ogy 
tort^nik, hogy a sz^mjegy adatai 35 byte-on helyezkedjenek el (az eredeti 0-s 
bit 0-s ^rt^ka byte-ot. az ItGs bit 255-03 6rt^ku byte-ot hoz l^tre). Az 5tk6do- 
I6st a 3110-t5[ 3150-ig terjedC programr^sz v6gzi, 

Wn xJi i ^'^ sz^mjegy&k vSltAsakor ezt a 36 byte-ot m^Holja At 

HL,/ i-z: 3; g^pj 1^^^^ 52ubriJtin a kapemyjlre IZ-s^eres 

c:in>.' i.hov ?. nagyrtSssaL J&y a miret v^gul 40x84 k^pernyflpont 
rtVisolni Kell lesz, A misoltS prog ram sssembEer list^ia: 



LD Hi 05H 
ipUSH RF 
.PUSH ML 
LD S7H 

PUSH OE 



A program kozvatlenul ^/esz St adatokat ^ BOM-bbl 
ezm gondoskodni keff az A 65 S tfpus feti3mer6s6f6i. 
En nek egyik iGhels^ges mp^oJdSsa a 3030- as sor, 
Arra h szuks^g van, hogy a program alkalmazkodjfik 
ai elt^r6 mem6fiam6ret0 g^p^khez, mort a g^pi V6dO 
raj2ol6nak ismernie kell a k^perny6-RAM cfm^T. Ezt 



U n nc e:%^ >£^M a R£EK(20) kozvetlenul jelzi. 

UU Ut_r «t?ii?^^n ^ j^5dszertani tanuls^gokon tOI j6 szolg^latot is tehet 



iU3 B> 0CH 
LD /HL/. R 
BDD HL. DE 
DJHZ. FCH 
POP DE 
im DE 
□EC C 

m HZ. F€JN 

PGP HL 
IHC fiU 
pi3P RF 

,Dec R 

JR HZ. ESH. 
iRET 



a program: nagyobb k6zons6g el6tt rendczett vet^lke- 
dfikon, j^t^kokon id<5m$r6sre hasznSlhatjuk. 
Fmk9t0 Gy6rgf 7300 Komt6, Bocskat u. 35. 



i J 0 
120 
1^0 
14u 
J l:iO 
160 
1 70 

1 BO 
190 
200 

2 1 o 
220 
1* 3 1 ^ 
240 
250 
300 

3 1 0 
320 
999 
1 OC-0 
1 0 1 0 
1 020 
1030 
1 040 
1050 
1060 
2000 
2010 
300^> 
ZO 1, O 
3020 
30 30 
:'040 

30 3 C) 
3060 
3070 
3090 
3(:i*-'"0 
iv 1 Q>0 
3 1 1 0 
3120 
3 1 30 
3140 
3150 
3160 

31 70 



j e;:l9E 

G „ Jii3- 



40 ROSIJH> :'010l EL.LiK li:S2 IH L 

100 rb;:m i-iuictjo niu e:s 

Z^:== IH\.\: Y;i£ : 
ir- i : : " " Vf lEN 1 1 
I UR A-0 1G S:RDf::E 
lJ-0 !(] 9:P0iai 
KUR C-O rC ^7:F'0h:E; 
ROR D-O Vil-'OHE 
BEER 1 , i :! FDR N-0 
E- Ci'-iLR (R) ! U INt' RY F^^" - 
IMEX [ i; NEX I : MR>; I : ME XT; 



\ El. I RAT 

3 1 0 

BEEF- 20,2':t 
CfVi I U ,H ' A) ) 
G , Rs E==-(.3iL 1. (!- (P) > 
O^l^i: !:-tJALL([" ) 
Ei , Mi; E^==CPL L ;F , h (D) > 
10 9 

I MEN 210 
NEX I 



REM MEBP.LE 1 1 , F GEY 1 h 
BEER 200. lOO 
Z-^lNREV^r 
11- Z-"0" 
I!- Z-"*" 
IR Z<>":=r 



I^Oo, 10 
-WO , J 2 
300 , 1 4 
200 , 16 



A DA TDK 




3 ISO 
31 9n 
320 1! 



TMEN GOBUB lOlOs &□ TO :l 10 
T H E N B E EF' 2 0 , 2 (I) l GG f G 1 9 0 
THEN 22t:J 
REN BEFEJEZES 

POKE R,PEEK (R) ^-12a; GUI" 0,REEK(R) 
PGKE r,24: CLS: END 

REM NULLA Z AS 

POKE G,J: GOBUB 20 Rj: BEEP 
PGKE^ G,R: G05UB 2010: BEEP 
POKE G,Ls SOSUB 2010: BEEP 
POKE G,M: GOSGB 2010: BEEP 
PGR A=0 TG JO: BEER 10,40 
BEEP 40, U,): NEXT: RETGRM 
REM A NULLA 1 RAT ASA 
E=C ALL ( F , A ( O ) ) : RETURN 
REM F"EL 1 RA 1 , ELGKE37 I TE5 , 
DERINT A-T: DEFBTR Y , Z i; CL 
K-= 164 76: P- 1 7000 : C-P-^ 1 0 
D-1293G: IF PEEK (D) =123 1 HEN E=4 
G -P-^ i 1. B- D + F+B : A-PEEK ( 20 ) : S=A - 1 
Y-"S T- G P P E R": Z-CHR:^^ ( 228-E ) 
l-'RINT^ ] ,8,CMRJ:(2)CHR-t (5)YCHRif (21) 
I- -R I N"l :P 7 , 20 , Z ; : PR I N T f 9 , 20 , Z ;i 
PR I Nl * 12,2,")^: I NDUL - : MEG ALL " 
PRINT* 13,2, "^■: VEGE Os MULLAZ" 
PRIN1 ^ 14,16,"^^: PGt.YTArTA"(.;HR:t ( 1) 
K-2;D::j: PGR D-0 FG 9: A(D>=G 
FOR E^-6 1 G 2 SI EP - I :: M-2 E 
BEEP D,E: PGR i TG 7: M-REEi : ( B+N ) 
IFM AND H [MEN P'OKE [;,!=: ELSE PQKEC , 0 
O-CH-l ; NEXF: NEX J : B^^=B+-es NEXT 
PGRE R, 17,207,3.^,27, ^22, 179, ::;2, 
251,20]: REM KESIELTEIG (1/10 SEC) 
PG^T" V , 33, 1 , A h6 ,62, 5 ,24G . 229 , 14 h 7, 
26 , 2 1 , 1 / , S2 , O , 6 , 1 2 , i. 1 9 , 25 , 1 6 , 252 , 
209, 19, 1 j,32,24(),225,35,241 ,61 ,32, 
230,201: REM SZAMJEGYRA J ZDL G 

l-:-9: L -IS;: M-26: P--J6443 
P(]ia: R,PEEH:(h:) and J27:.r-RKi 
F-UK E T , 1 : GGSUB J 0 1 0 j REl URN 



egy pragramozasi modszer: 




A szemdiyi szdmft6g^pek rohamos e1- 
terjed^sdvel egyre tobb didk 6s fe1n5tt 
jut gdpkozelbe az iskoldban, csalddban 
vagy a munkahelyen, Idzasan tanul 
programozni. Ez tdbbnyire azt jelenti, 
hogy ismerkedik az adott g^p BASIC 
utasitdsaivat, arra torekedve, hogy mi- 
nel tobb f urf angosabb utasltds vdljon 
ismertt^ szdmdra. Mint ahogy nem M- 
lithatjuk, hogy valaki tud sakkoznL ha 
ismeri a j^t^k szabdiyait, ugyanugy nem 
biztos, hogy „tud" programozni az, aki 
el6g sok BASIC utasitdst ismer. 

Nehany peldan keresztui megpr6b^lunk 
bemutatni egy programozcisi nn6d- 
szert, amely tobbnyire nem igenyel 
bonyolult utasit^sokat, csak n^mi ot- 
letesseget. A mellekelt programok 
Commodore-1 6-os g^pre keszultek, 
de konnyen ^tirhat6k barmely mas 
g^ptipusra is. 

Az ^Ital^nos iskolai tanulok szam^ra 
kiirt egyeni palyazat matematikai fel- 
adatai kozott szerepel az alabbi: 
5 radirt, 4 ceruzat es 3 tollat v^s^roN 
tunk osszesen 100 forintert. 1 radfr 
kevesebbe, 1 toll pedig tobbe kerCil, 
mint 1 ceruza. Mindegyiknek eg^sz 
forint az ^ra. Mennyibe kerulhet kulon- 
kulon 1 radir, 1 ceruza es 1 toll? 
(1985/86. tan^v, I iordu\6. 3. fel- 
adat.) 

Legyen a radir ara x, a ceruzae y, a 
tolle z A feladat szerint olyan x, y, z 
sz^imharmasokat kell keresnunk, 
amelyre 5x+4y+3z=1 00, ahol x, y, z 
pozftiv egesz, es x<y-:z. 
Eloszor ki fogunk valasztani egy meg- 
felelo X erteket, ehhez egy megfelel6 
y-t, vegul z-t. 

X kiv^Iaszt^sakor 1 -gyel kezdve min- 
den pozitiv egesz sz^m sz6ba johet 
addig, amig nem lesz az 5x+4(x+1) + 
+ 3(x+2) kifejezes 6rt6ke 100-n^( 
nagyobb. (Itt haszn^ltuk ki az x-:y-=z 
feft^telt ) 

Valamelyik x erteket kiv^lasztva le- 
nyeg^ben elindultunk egy ,,uton", 
amelyen y kiv^laszt^sa ujabb „utei- 
agazast" jelent, ahol a tov^bbhaladas- 
hoz ismet v^Iasztunk egy „utat'\ Itt 
az elagazasok szama mar x erteketol is 
fugg. y lehets^ges ertekei az x-n6\ 
nagyobb, es az 5x+4y+3(y+1 )<1 00 
feltetelnek eleget tevo pozitiv egesz 
sz^mok. 

z-t is y+1 -gyel kezdve noveljuk egye^ 
sevel addig, amig 5x+4y+3z eppen 
1 00 lesz — azaz megkapunk egy meg- 
oldast vagy meghaladja a 100-at, 
ekkor visszal^punk. 6s vesszuk a ko- 
vetkezo y ^rtdket. Ha egy adott x ^r- 
tekhez tartoz6 minden y erteket meg- 
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vizsg^ltunk, akkor ismet visszal^punk A visszal^pesrol kapta a m6dszer a 

(m6g eggyel alacsonyabb szintre), 6s nev^t. (Backtrack = visszal^p, vissza- 

vesszuk a kovetkezfl lehetseges x er- t^ncol.) Ehelyett nevezhetn^nk ezt az 

t6ket, hozz^ y-,t majd z-t stb. elj^r^st m6ds2eres pr6b^lgatcisnak is. 

Mtndezt Igy realiz^ihatjuk egy programban: 

10 SCHCLR 

30 >i=^>h^t _^ ^ 

'7B IF 5f X4"4*Y+3*i<V'*^l THEN 3© 

m Z^V 

'im IF 5*:'<%4*¥i-3*2<i0a them 9e 

110 IF 5*Hh4*V-^3*2>1©0 THEN 

pprHTx>v.2 

1 ^lO GOTO fe© 



THEIN END 




Figyeljuk meg, hogy ez a rovid prog- 
ram milyen keves BASIC utasit^st 
haszn^l. Kets^gkivul fel lehetne - sot 
fel is kell - ,,cicom^zni" a programot 
(^ttekinthet6bb kiir^s, megold^sok 
szcimol^sa stb.), de ez a program \6- 
nyeg^t nem ^rinti. 

A probl^ma megoldcis^nak termesze- 
tesen nem ez az egyetlen utja. PI. x 
es y ismeret^ben az 5x+4y+3z=100 
egyenletbol z mar kiszamithat6, de 
ekkor azt kellene vizsg^lnunk, hogy 
z egesz sz^m-e. 



Ugyancsak altalanos iskolai matema- 
tikai versenyfeladat (egyeni palyazat 
1984/85- tan^v, II. fordulo, A/4 fel- 
adat) a kovetkezo: 

Agi, Bela, Cili es Denes testverek. 
Szulet^sijk sorrendje megegyezik a 
leirt sorrenddel. Egy t^bla csokit ugy 
osztottak el egym^s kozott hogy 
egyik sem evett tbbbet, mint a n^la 
fiatalabb. Mindegyikuk csokol^deja az 
egesz csokinak ofyan tbrttel kifejez- 
heto resze. amelyiknek a sz^ml^l6ja 1 
es a nevez6je egesz szcim. 



Az egesz csokoiadenak 

mekkora reszet ehette meg Agh Bela, Cili es DSnes? 



l/^ 1/** ^ 



OCi 



IS REE1 l/R-^l/B+^l/t: 
36^ SCNCLP 

50 R=ft+1=IF ft>4 THEN 

S9 IF En-R>^R^!& THEU 7& 
S»i0 84'S*R<R*B THEN m 
108 Q^B-l 

12B IF Bm:^mc^'mB: -^c them iio 

13P\ IF BtiC-^R^C^'::^*^^. M^:^ii^C THEN m 

L 6J::'f I F '^l 4^0-^!^-1i'C ^HD+R*!:: '■ ... ■• : < -I' !:;■ 'HI ■ - fl::' 




I!;:- ;'!'^ C vJ Fl ^!'- C- i J "= f\ i'^ B --i-rif Fi J C 



Jri in"; hi 



1 IM 



Ebben a feladatban is pozitiv egesz 
szamokat keresunk, melyekre teljesul- 
nek az 



(Agi csokoladeresze 



1 



1 1 



3 

felt^telek 



1 

T 

c 

c ^ d 



1- 



es a 



1 

Belae — stb.) 

A mellekelt program ugyancsak a 

backtrack elven mukbdik. 

PI. c legelso kiprbbalt erteke b. Ha meg 

— ^Tr+— ^ 1 ^ akkorc-ttov^bb kell nb- 
a b c 

■ • , u .1111 

velnunk, de ha mar — + t--^ — 

a b c c 



1, 




10 

40 

60 
7f9 
80 

S"© 

240 
2c?3 

3313 
3413 



REM 

WSi*^'* I 

W5*=" R 
LISTS 




B C D E F G H 

t^^. e ' LIST4> S.. 0 ■ LIST J. .2* 7'CLR 
3flVEl..Svfc". "HVOLC VESER R SmKTfiSLQH'; 
f^HVirl 'fi/aS' "flS L-T MECWOHVfl UtpeSENK 

HfiLRDUHb. " 
-| (.;!)=:;-:*Bii!+T 1 

FOR W'^l T03 = W*-CHR*CSi7-WJ* + " "■■''Hi-3i: 
SRVE 1 » y , ^1 -^i*- H ^ 
SflV£l . 1 e . 4+2*t'h H3* 

SflVE 1 . 1 9 . 21^ i W4* 
SR'vE 1.10.22.. W5* 
pEr-l***!****** STFlPT 4''=V:i!Kti+"N>:*»'*'* 
DIM fi-:;3. 'a> .■ Sf:S> 1=13 

PErl VECVUK B KiJVETlvlEEQ OSSLOPOT * 



l = :[-(-i.- s^^.. 
J=-J*l 
IF J>S 

KEM ** 
IF ICS 
REM ** 



m 





FOOLeLT fl f'1E2Q'? 
J'> THEW 241S 
LETESZ EJjV JELET ** 
£^=l = 5 C U*=J = GOSUB 4-it0 
VFlH nj O^i^LOF'? 
THEN 220 ^ . 

MEGOLDrVo T Tlrlt„BL #* 



41 a 



It 



4-7)ii> 

4&e 

510 
S£0 

■540 



JELET 
•1jOSL(S4:-lt3 
, j^ii ■ ijijTO 24i3 
*■+ MEO-JELOLT - rtDt-UNISlSTRBLT ** 

<-E - 



REM 

1=1-1 = If ■ l ^^O 
pP'in *:tc rEL'.'"" 

If i~8 THEtS 
P' 



. - J+J^-I ,.. 

IF JiO "L'HEM 
IF J2:>S TMEH 
NEXT X 

IT Lf=^"L" TMEH »3ET 
IF L*0"L" THEN O.El'L* 

■5RVEJ..-ar '■' '- 



akkor c-vel tulhaladtunk a meg- 
felel6 erteken, igy vissza kell lepnunk 
b novel^sere. Ezeket a felteteieket 
azonban nem vizsg^lhatjuk ebben a 
form^ban, kozos nevezore hozassal 
kell irnunk oket ugy, hogy a vizsgalt 
egyenlotlensegekben egesz szamok 
szerepeljenek. 

Probaljuk atirni a programot arra az 
esetre, ha ot testvernek kell osztoznia 
a csokol^den. ugyanilyen felteteiek 
mellett. 

Ebbol mar kitunne a backtrack mod- 
szer hatr^nya Is. Ha ugyanis nagyon 
sok esetet kell megvizsgaini, akkor ez 
meg a gep szam^ra is sokaig tarthat. 
PI. 6t testver eseten az elso megold^s 



1 1 

2^3 



1 



7 "^43 ^ 1806 



1, 



es ez tobb mint egy perc futasido utan 
deriil ki. 

Sokat javfthatunk a program sebess^- 
gSn. ha Ogy frjuk meg a programot. 
hogy a g^p miel6bb Ismerje fet, hogy 
a vizsgalt Ot nem hoz aredm^nyi, PI, 
ilt a£ els5 n§gv sz5m fsmeret^ben ki 
lehel s^lmolni. hogy az dtodiket mi- 
lyen S2:5m kozel^ben kell keresnunk. 
Ezzei viszoril bonyolultabb^ vSlik a 
program 

A backtrack m6dszer illusztralas^ra 
klasszfkusnak sz^mit6 feladat a ko- 
vetkezo: 



Helyezzunk el a sakktablan nyolc ye- 
zert ugy, hogy azok ne ussek egymast. 
KeressQk meg az osszes megoldast. 
Figyeljuk meg a mellekelt program- 
ban, hogy egy figura letevesekor vagy 
visszavetelekor ugyanaz a szubrutin 
haszn^lhat6 (420^520). csak mig a 
leteveskor (300) minden foglaitia 
vSIb mez^S ..s^jfyit^ 1 -gye! noveljyk, 
aridig a felv4telkor (400) 1 -gye! csok- 
ker^tjuk. tgy a program sz^montartja- 
hogy az adott mez6 h^nyszorosan fog- 
lalt. Ha ez a sz^m 0. akkor szabad fe- 
tenni egy figurat. 

VegezetuI afljon itt egy problema, 
melynek a megoldasahoz jol haszr^al- 
hato a backtrack m6dszer: 

Valasszunk ki az 1 es n kozdtti terme- 
szetes szamok kozul minel tobbet ugy, 
hogy b^rmely kettonek a kulonbs^ge 
ne legyen egyenio barmely m^sik 
ketto kulonbseg6vel. PI. n = 12 ese- 
ten kivalaszthato 6t ilyen szam: 1. 2, 
5. 10, 12. Van-e m^sik 6t ilyen sz^m? 
Ki lehet-e v^lasztani hatot? Ha nem. 
milyen n eseten valaszthat6 kl hat 
(het nyolc stb.) ilyen szam? 

A problema megold^sahoz sok sikert 
kivan 

Szi/assi La/OS Szege6 Bite Pal u. 2/b 



A cikk peldai talan nem tuntek elegge 
meggyozonek. Bizonyara van olyan ol- 
vaso, aki ezek alapjdn nem l^tta be a 
backtrack modszer hasznoss^g^t. 
Igaz, hogy az also peld^ban bemutatott 
egyenlosegfajta megold^sara letezik ha- 
tekony algoritmus. Gyorsabb, mint a 
backtrack - de ha ezt haszndljuk, a sz^- 
mitogepes program mar kor^ntsem lesz 
ilyen egyszeru es attekintheto. Igazaz is, 
hogy egy kis eiozetes gondolkod^s ut^n 
a masodik feladat is megoldhat6 ugye- 
sebben; azonban ezt is csak a program 
egyszerusegenek rovSs^ra tehetjiik 
meg. 

A backtrack lenyeg^t igaz^n a harmadik 
pelda mutatja meg. Ezt a feladatot val6- 
ban nem lehet hatekonyabban megol- 
dani. A modszer ilyen jellegu elrendez^si 
probl^m^kn^l has^nfilhat^ igasr^n - 
legyan flz6 ak^r hasontb logikai f^ladat^ 
r6l vagy egy aekkfeladv^ny etemz^s^rdl, 
akftr &gy i^koLs drarandjenak ^tkaazft^- 
s^rol. akir p^dig egy sokvSltoz6s, egy- 
mAst befolyflsold tdnyez6k szerint m(3' 
kodo rondszer modeltei^rfiL Eiekben 
az esetekben egyedul a backtrack ad 
belithat6 idon beliil haszn^lhatb ered- 
menyt. 



A szerkeszto azert van. 



hogy a Zap olyan legyen. 



amilyenek az oivasoi* 
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Peremkeriiiet kis meMkutc^JAnak egyik 
Spulet4n tab fa: Csokonai MuvefifdSsi 
Haz. A BiT-LET olvasoi sz^m6ra nyUv^n 
nem ismeretlen a nev, hiszen itt tartot- 
tuk az efso BiT-LET Karacsonyt. Bz a 
Mz a Borona szSkhelye, 

Nem mez(3gazdasagi ki^llit^s nyilt itt. a 
Borona a szamft6g^pes cserepartner- 6s 
m^rkat^rs-kereso szolg^fat ,,fedd5neve". 

- Ugy indult az egesz - mondja Tdth 
Lajos igazgato hogy neg v ewel ezelott 
mi kezdtunk el elsokent foglalkozni a 
szdmftastechnikdval a muveldd^si hci- 
zak kozott. Jo szoftveres hardveres 
szakembereket sikerult osszegyujte- 
nunk. fgy klubjaink rovid ido alatt n^p- 
szeruv^ vdltak, sot tanfolyamokat is 
tudtunk szervfizni. 

Val6ban, a Csokonai mikrog^pes klubj^nak 
jelenleg mintegy kilencven tagja van, ezen 
feluf a csak itt rndkbdS Sinclair QL klub tag- 
jainak sz^ma is hatvan. fgy arra k^nyszerul- 
tek. hogy „arisztokratiz^lj^k" a klubtag- 
s^got: ma m^r csak az idphet be, akit vala- 
mefyik r6gebbi klubtag aj^nL 

- Erre a szakembergdrddra 6pftve hoz- 
tuk l^trea Mikroinform nevO szolgdlta- 
tdsunkat. Arra v^llalkoztunk, hogy b^r- 
kinek, aki akdr szemdiyesen, akdr lev^l- 
ben hozzdnk f ordul a mikrosz^mltdg^pd- 
vel kapcsolatos kdrddsekkel, annak In- 
gyenesen megadjuk, illetve megkuldjiik 
a vdlaszt. A Mikroinform bdvult ki k4^ 
s6bb, a BIT- LET Kardcsony idejdn a 
Boron^val. Ennek keretdben az azonos 
drdekldd^si korO szdmft6gdptulajdono- 
sok teremthetnek kapcsolatot egymds- 
sal. Aki mikrogdpas levelezS- vagy cse- 
retdrsat keres, az egy kitdltdtt k^rddfv 
6s dtven forint befizetdse ellen^ben 
Megkapja az azonos drdekldd^si k6rQ 
partnerek nev6t 6s cfm6t. 

Az ig^ny erre hatalmas, hiszen a kis telepu- 
J^seken ^Iflknek szinte semmif6le Iehet6s6- 
guk nines arra, hogy megtal^lj^k 6rdeki(5d6si 
koruknek megfelel6 t^rsaikat - ezt bizonyftja 
a szerkes2t6s6gunkh6z 6rkez6 rengeteg le- 
v6l is. fgy a muve!<5d^si h^zat a legkisebb 
falvakb6l is naponta keresik. 

- Arra, hogy sokan mennyira fontosnak 
tartjdk a kapcsotatteremt^st, \6 p61da 
az, amikor az egyik ,,t6rskeres5" cfmdt 
hibdsan kOldtiik meg az 6rdek16d6 part- 
nereknek. Nemcsak telefondit a hiba 
javftds6t k6rve, ha nem m6g ndgyen- 
dten, az orsz^g legkulonboz5bb pontjai- 
r6l, aktknek a rossz clmz6s ellendre sike- 
rult felvenniuk a kapcsolatot a mdrka- 
tdrssal. Mdra m6r oda jutottunk, hogy 
kdnytelenek vagyunk szGkfteni, ponto- 



sabbd tenni az erdeklddesr koroket, 
mert nem tudjuk p6lddu1 egy-egy 
Commodore-tuiajdonosnak valamennyi 
markatarsa cimet elkiildeni. A napok- 
ban keszul el az uj kerdoiviink, amely 
az eldzdnel sokkal jobban behatdrolja 
azt, hogy kit miiyen jeliegQ programok 
erdekelnek. Arra m^r nem vdllalkoz- 
hatunk, hogy annak is kozvetftsunk 
partnert. akit ..minden" 6rdekel. 

Minthogy a tanacsad6 szolg^lat ingyenes, 
a Borona pedig mindossze otven forintba 
kerul, a v^llaikoz^s nem tunik nyeres^ges- 
nek - pedig az. Nyeres^ges, hiszen az in- 
form^cic5 is p^nzt 6r. A Csokonai olyan adat- 
b^zisra tett szert szolg^itatbi tev6kenys6ge 
r^v^n, ami kamatozik. Kdzel 1500 mikro- 
g^ptulajdonos adatait tartj^k nyilv^n, ^s 
olyan tekint^lyt vtvtak ki, hogy Vcillalatok, 
int^zm^nyek egym^s ut^n hivj^k 3ket tan- 
folyamok megtart^s^ra, 6s sok az dnk^ntes 
felaj^nl^s, anyagi t^mogat^s is - fgy az 
Ipari Informatikai Kozpont otvenezer forint 
^rt6ku szakkonyvet adott 5t a h^znak. 

- Annyira megnott az adatdllomdnyunk, 
hogy most keresunk egy olyan cdget, 
mely hosszu tdvra kolcsdnozne nekunk 
egy komolyabb g^pet a nyilvintart^si 
munkdk megkonnyft6s6re. Ez6rt cser6- 
ben a sz6tkulddtt leveleinkben propagdl* 
ndnk is a gdpet add int^zmdnyt. 

A Csokonai Muvel6d6si HAzban nemr^gt- 
ben megszunt a szok^sos heti disco is. 
T^ncolni kevesebben akartak, mint sz5mft6- 
g^pet kezeini, fgy gyfizott a mikrog^pesek 
akarata. akiket zavart a hangos zene, A sz^- 
mft6g6pesek fanatikusak, fgy el^rt6k azt is. 
hogy a hdzban a h6t minden napj^n van 
szdmft6g6pes rendezv^ny. 



^ Hozzdnk b^rki, barmikor bejohet, es 
haszndihatja a gepeket ~ feiteve, hogy 
programozni vagy tanulni akar rajtuk, 
6s nem jdtszani. Ahhoz nines elegendo 
sz6mft6g6punk, hogy a gyerekek ezeken 
vfvjanak Orhdborut. Szerveziink csalddi 
tanfolyamokat is. drdekes m6don itt 
j6val kisebb a lemorzso16d6s, mint a 
csak felnotteknek sz6l6 tanfolyamaink- 
ndl. 

A magyar^zat konnyen kital^lhat6. Ha valaki 
munka meliett akarja elsaj^titani a progra- 
moz^s alapfog^sait, hamar ugy erzi, hogy 
kev6s erre az Ideje, 6s f^rasztja az ujszeru 
tanutnival6. Ha azonban azt Icitja, hogy a fia 
vele egyutt halad, akkor sz^gyellne mag^t 
ha iemaradna t6ie. 

- Szombatonkcnt csal6dias a hangulat: 
felnottek, gyerekek egyiitt dolgoznak. 
9'tol 14 ordig minden g6ptulajdonos- 
nak ordnkent 20 forintert biztositjuk az 
aramotesa monitort. Ha valaki magdval 
hozza a tv-t, akkor ingyen johet. 

A nagy januciri havaz;^s idejen a h^zban 
minden program elmaradt. Kiurult a h^z, 
az emberek ink^bb otthon maradtak a futott 
szob^ban. Csak szombat d^lelCtt didereg- 
tek neh^nyan a kapu ef6tt a hbviharban, 
h(5nuk alatt sz^mft6g^ppel, sp^rg^val ossze- 
kotott monitorral. 

- Valddi koz6ss6g alakult ki itt. Egyszer 
az egyik klubtagunknak. egy tlzen6ves 
fiunak eltGnt a g6pe. A tobbi tag gyuj- 
t6st szervezett, es negyed ora alatt 
osszeadtdk a penzt - igy a fiu a kovet- 
kezo h6ten m6r ujra dolgozhatott az uj 
g6pen. A sz6mit6g6pesek megsz^llot- 
tak, sot kicsit orultek - de nem lehet 
nem szeretni 6ket - fejezi be T6th Lajos. 
Tail4r Jdzsef 

A Borona olyan vMaikozds, amalyat 
nemcsak a Csokonai i\/IQyal6d4si HSz- 
zai kiSpitett r4gi 16 kapcsoiatunk miatt 
tartunk rok/^mozHsra ^rdemesnek. Ogy 
gontfoijuk ugyanis, iiogy nemcsak a 
Mavel6d6si H^z, de a itobbiszSmM- 
g4pesek, k6ztuk oivas6ink Srdekeit is 
SMoig&lia, 

A Borona tei%&t ei^rltetSmz aiibbielmen: 
Csokonai i\aavel5d6si HSz -11SS Buda- 
pest, BStvSsu. 64^6, Teiefon: 690-49$, 
892-240 





Janudri szAmunkban bt&xdmoltufili a 
8 ETA BASIC bffvHis nShdny NbAjdrdl, 
*malv«k a DELETE As a KEYIN utasEtd- 
sokkal kapcsol^tOB^k. Az^ta kid^rQH^ 
hogy a BETA BASIC mAg kev«sb4 tdki- 
l^tes, mint eredetilag hUtuk* Most agv 
(j}abb hibdra hivjuk faJ a flgyelmet, 

Szinte nnrnden toolkit 6s BASIC b(5vit6s 
parancslist^i^ban megtal^ljuk a RENUMBER 
utasit^st. Ez a programsorok ^tsz^moz^s^t 
hivatott elv^gezni. 

Az utasft^s mukod6s6nek meg6rt6s6hez 
elCszor n^zzunk meg k^t m^sik parancsot! 
Az egyik a MOVE, a m^sik a COPY. A MOVE 
egy vagy tobb programsor ^tmozgatis^t 
v^gzi el, vagyis az eredetl sorok torlfidnek, 
6s ujabbak iridnak be a kiv^fasztott helyre. 
A COPY az adott sort, illetve sorokat a meg- 
felel6 teruletre m^solja, de ekkor az eredeti 
sorok nem torlfldnek. 

A BETA BASIC 3.0 v^ltozatban a MOVE 
utasft^snak gyakorlatiiag a RENUM (re- 
number, azaz ujrasz^mozSs) felel meg, a 
COPY-nak pedig a RENUM^. A RENUM 
a RENUM* mukod^s^t kul6nb6z(5s6gu- 
ket az cibra mutatja; 
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A vessz6 n^lkuli 6s a vesszGvel jelzett prog- 
ramsorok tartalma megegyezik, osak sor- 
sz^maik t6rnek el egymdstdl. 
Mindez hasznos szolg^ltat^s - de van a 
RENUM* utasft^snak egy sulyos fogyat*- 
koss^ga. Ez akkor jelentkezik, ha csak egyet- 
len sort kivSnunk Mmdsoini, a m^solni 
klvdnt son valamint a c6lsorsz5m kozott 
nincsenek tovdbbi programsorok. 
N62zunk erre egy mintapdld^t. G^peijuk be: 
10 REM 
6s adjuk ki a 

RENUM* (10 TO 10) LINE 100 
parancsot. Ha lenyomjuk az ENTERT, a 
k6vetkez(5 programlist^t kapjuk: 



10 REM 
100 REM 
10 REM 

Vagyis az ^tm^solt sor az eredeti sorsz^mA- 
val egyutt a c6lsorsz^m mogott is megjelejtf. 
Ha ezut^n a kurzort Iefel6 mozgatjuk a k6p- 
ernv6n, akkor alul 6rtelmetlen sorrendben 
jelennek meg a „bCin6s" sofok^r;; Ovatosan 
kfs^rletezzunk, mert a tobbi kuniormozgat^ 
billentyu lenyom^Scira el is sz^llhat a rend- 
szer ! 

Ha ujra lenyomjuk az ENTER-t.-jakkor a lis- 
t^ban m^r k6t kurzor is I5lhat6. A felesleges 
sor csak az elfitte I^V(5 sor (illetve sorok) 
elt^voHt^sa utSn tuntethetfi el - de ezzel 
egyutt persze el6szdr is az eredeti sort kelt 
tdrolni. 

A hibdt az okozza, hogy az utasi'tis 6rtelme- 
z6sekor rosszul mdkodik a TO ut6ni elten- 
firzfl rutin. Ha az ^tmdsol^is kozvetlenui az 
fithelyezni kiv^nt sor ut^ni teruletre t6rt6nik, 
akkor az eredeti sort az 6rtelmez(5 egy k6t 
sorb6l ^Ii6 programblokknak tekinti. Igy a 
c6lsor ut^n megism6tli. Emiatt lesz k6t azo- 
nos sz^mu sorunk. Ha a start- 6s a c6lsor 
kozott van m6g programsor, akkor a rutin 
helyesen hajtja v6gre feladat^t. 
A BETA BASIC szerzfli nem vett^k 6szre a 
hib^t, hiszen az utasit^s jelent6s6ge etsfi- 
sorban nagyobb programblokkok dtmSso- 
IAsAn6i 6rezhet6. 

Egyetlen sor mSsol^sa a legegyszerubben 
ugy val6s[that6 meg hiba n6lkul, ha a start- 
sort lehivjuk EDIT-tel. 6tfrjuk a sorsz^mSt, 6s 
ENTER-rel ism6t bevisszuk a memiri^ba. 

Bucx Lajos 



g Miskalc^j Nehfizipari MOszakt fgyetem KonyvtJ^rSban 
f9tf7. ipr/tis 10-11. 



A Programcsmretffre iwemben asifa/b^riSs: 



t4v^ cf^atl&kozSs^ Ithetfisig 

ugy a nez -ommodofe 64-©( 6s m^gndval 

u gyen^i Coin mod ore 64 -eI ^ floppyval 



br^nk^nt 60 forini 



Egyetem KISZ Bizottsagan^l: 06^46-65-111/11-04 
Az cl^jegyzett helyakat negy napig tBrtjak, Idfi alatt kell beftzetm 



a p4nzi a ka^^ik^Mif clmra: 



MiHRO MEN ^ KISZ BtMoUs^s - SS7S Miskofc - Egydtamviros 
Lapzirtakor a progTamok szervezese tart. Les^neK progranr- 4s Q4p- 
bamutatdk^ v^llalEJtok^ felhaszn^l6k tal^tkozhatnak IBM kompatibilis g^pakre 
Iroft szoftverekkel ifes azok Bzerz5ivel Losz bemuiatd tanitSs a szSmftastach- 
nfkflt oktat6 tandrokjiak, t3f5lkoz6 az egyetem szakembereivel a f^atsf koi- 
qatd^szo'k niGsiakiak rd^^^re. 

A miskoici egyetemi kbnyvt^r ezen a k6t rrapon csak a sz^mft6g^eseki§ f 



i » 



Belioo: diMoknak Ss kaionakoak: 70 forint^ maMknak 20 forini 



Szubjekthr vdleinAnyem szerint a BIT- LET egyik legpozi- 
tivabb rovata a SORVEZETO volt. T5bb irdsdval vitatkoztam, 
de olyan „h6zagp6tl6" szarepet jdtszottf ami nagyobb hibdk- 
kal szemben is elii6z6v6 tett volna. Konkr6tabban : a szinte 
teljesen elhanyagolt tandrk6pz6s teriilet^n prdbAlkozott... 
Rossz 6nnen en nek a hamvdba-holt sorozatnak a f el4leszt6s6t 
c^lul tuznir de feltdtleniil szuksdg lenne valami hasonldra, 
ez6rt megpr6bdlkozunk vele. 

1 966 v^g^n komoly kbzponti t^mogatSssal indult egy kfs^rlet „A szd- 
mit^stechnika matematika orient^lt oktat^sa" cfmmel. Kulonbbzfi 
adminisztratfv okok miatt a kis^rlet 6vatos csendben indult el k6t 
ifcinyba: Simonovits Mikl6s vezeti az ijn. IRANYITOTT vonalat. Ennek 
keret6n belul 8-10 k6z6piskolAban olyan tanterv szerint oktatnak, 
amelyik S, M. „Sz^mftdstechnika" tankonyv^n alapul. A rp^sik vona- 
lon 10-12 pedag6gus saj^t elk^pzel^seit pr6b^lgatja. Uj Sorveze- 
tflnkben megpr6b^ljuk errfil a k[s6rletr6l roviden inform^lni a BIT- 
LET-et olvas6 tan^rokat. Szeretn6nk p^ld^ul hasznos anyagokat 
kbzoini nem teljesen kezdfi fogtalkoz^sokhoz (szakkori 6s 6rai mun- 
k^hoz egyar^nt). Ezenkivul birki bttet^nek, mbdszereinek. 6szrev6- 
teleinek szfvesen biztosftunk fbrumot 



A kiserletrdi rdviden 



A Muveifid^sugyi Miniszt^num KozoktatAsi Kutat^sok Titk^rsSga ^Ital 
menedzselt kis6rlet c^lja egy olyan koncepcib kialakit^sa, melyben 
a szAmit^stechnikai ismeretek kbzvetlen egys^gben jelentkezn^nek 
a t^rs-tant^rgyakkal, esetunkben a matematlkSval. Nem ^IKtjuk, hogy 
a matematika missal nem helyetteslthetfi, pusztdn arrbl van szb, 
hogy a kfs^rlet vezetSi 6s r^sztvevCi elsOsorban ehhez 6rtenek 6s 
vonzbdnak. Kapcsolatra torekszunk m^s ir^nyokkal is. 
R6szletesebben azt szeretn^nk, hogy a matematikabrdkon tanult 
sz^mitbg^pes ismeretek egy sokkal eredm^nyesebb, aiaposabb, 6s 
magasabb szintO matematika tanlt^shoz vezessenek. Mindenkor 5t- 
lagos - nem tagozatos - oszt^ilyokat veszunk c6lba, m6gha ennek 
eleinte ellent is mond a Ms6rletben r6szt vevb iskol^k szinvonala. 
Nem szakkori kbrulm6nyekben gondolkodunk, de prbb^lunk tekin- 
tettel lenni a di^kok kulbnbbzb szintu alapismereteire. 
A r6sztvevb pedagbgusok egy n^hSny oldalas tematikdt adtak be: 
hogyan k6pzelik el az oktat^st. Tan6v kbzben k6thavonta kCildenek 
brav^zlatokat, illetve naplbt: mikor, mi tbrt6rt valbj^ban. £v v6g6n 
p^r oldalon foglalj^k bssze, mit hogyan sikeruft megvalbsftani, mik 
a tanulsAgok. Evente 2-3 alkalommal bsszegyulve megismerhetik 
egymds elk6pzel6seit. gondjait, 6s tervezunk szakmai tov4bbk6pz^st. 
bemutatbt is. 

R6szben a kfs6rleihez, (r6szben hagyomdnyainkhoz) kapcsolbdik 
egy 6vkdzbeni haladb szakkbr, amelyet tbbb kbz6piskol5vai kbzbsen 
tbbbek kbzbtt a KFKI ny^ri t^borainak leghaladbbb tagjainak tartunk. 
Ennek anyagdbbi valbk az aiSbbi feladatok. Kutbn fblhfvn^nk az 
olvasbk figyelm6t a szfnes al^nyomcissal kiemeft k6rd6sekre. Ezek 
megold^sai bekuldhetbk. Ebbbi egyr6szt az anvagok visszhangj^ra 
szeretn6nk kbvetkeztetni, m^sr6szt sok k6rd6sre magunk sem ismer- 
juk az egzakt feleletet. A helyes (6s frapp^ns) v^laszok bekuldbi 
kbzbtt aprbs^gokat (floppy, kazetta. BIT-LET-ek stb.) sorsolunk ki. 
A megolddsokat kiv6telesen nem a BIT- LET hanem a szerzb 
crm6re kuldj^k. Azaz: Torok Turul - 1525 Budapest MTA 
KFKI Pf.:49. 



Bolyongastol a Lissajoux gorb^kig 



1. feladat. Tekintsiink a k6pernybn egy A, B oldalu t6glalapot. 
Ennek egy belsb pontj^bbl kiindulva determinisztikusan „bolyong" 
egy pont. Azaz, az ofdalakkal 45°'0S $zbgetbez6rb egyenesek ment6n 
mozoghat, 6s a hat6rokon rugatmasan visszaverbdik. HasznAljunk 
„karakter-grafikM" (CHAR, PRINT. PRINT AT stb.), 6s A, B illetve a 
kezdbpont tegyen v6letlenszeru ! 



2t3 DEFFMR < X = I MT ^\ RHD < 1 > *X+ 1 > 
40 Xl=FNR<.30> + 8 : V1=FNR<.X5>+S 
4'5 X^FNROa - 1 > = V=FNR':: V 1- 1 > 
46 SCHCLR 

G0 FOR T-Q TO Xl^CHBR 1 I . V1+ 1 . " ^ NEXT 

79 FOR 1=0 TO V1=CHRR i/Xl + l.I."l " = NEXT 

00 DX-^i ■■ DV=-1 

30 FOR 1=1 TO 2*X1*V1 

100 X=X+DX = V=V-frDV 

HO IF F!BSc:X~Xi/2>>Xl/2-. 1 THEH DX=-OX 
115 IF RBSf:y~ VlX2;'>Vl/2-. 1 THEN DV==-DV 
120 CHAR l.X. V. 
130 NEXT I 

150 GETKEV ^r^HRR 1 / 5 . 24 . STR^ <:X1 >+STRir <: 
VI > 



XI 6s Y1 az oldalhosszak, 45*ben X 6s Y a kezdbpont koordinStSi, 
DX 6s DY (mindkettb 1 vagy -1) a bolyong^s pillanatnyi ir6ny6t 
hat^rozz6k meg. 

Futtassuk n6h6nyszor a programot! Rem6lhetbleg mindenkiben k6r' 
d6sek 6s 6szrev6telek tbmege fogalmazbdik meg, pid.: 

a) Mikor van v6ge a ..dolognak"? Mi tbrt6nik amikor nem tbrt6nik 
semmi? 

b) Lehetne-e gyorsi'tani a bolyong^st, hiszen nagyobb tdgtalapcn 
bizony unalmas egy kicsit. 

c) Mitbl fijgg az 6bra telftetts6ge? Prbb6!junk valami tbrv6nvszeru' 
s^gei folfedeznil 

Gondolkozzunk ol egv feicsit d k^rd^seken. A gyorsitiSs l^nyegftben 
lechnikai probl^ma: vegyuk ^szre. hogy az lF-es &ofok (110-115) 
tCil gyakran keru I nek v^gr^hejlSsra. Vatbban fele^leg^s minden l^p^a- 
n6l megn67ni. falnfii vagyunk-e. EI6re ki is sz^mithatiuJTn mikor kdl 
visszaverbdni, pontosabhan viz^zinieSp ^vagy tOggbieges fal \et2 a 
kbvetkezb. N6mi tbpreng6s ut^n adbdik az al6bbi vSltozat: 



5 DEFFNR X = I NT (. RND f. 1 > *X+ 1 > 

7 fi=FNR<: 100> + 2O -B=FNR< 100 > +29 

l^H VXv2 :'=R+5 ^ VVt;2::«=BH^5 ^ VX<0>=!5 ^ VV<0>=5 

20 X=FNR <: 1 0 + 5 ^ V=Fh4R f". 1 5 > 4-5 = D'X= 1 = D V= 1 XX= 

X = vv=v 

100 GRRRHIC 4, 1 

1 05 CHRR 1/5.19.. STR^- <;R > +STR$ B > 

110 BOX 1 , v;=-: <\ 0 > . vv <: o > . vx c 2 > . vv < 2 > ■■ drrw 1 

.X. V 

1 50 X 1 ==X ^ V 1 =V V 1 =RES c; X- VX <: DX-H 1 > > V2=flBS <: 
V-VV'::OV+l>> 

ISO IF VK.V2 THEN X=X+V1*0X = V=V+Vl*DV = DR 

RW 1 TO X. V ^DX=""DXM30 TO 150 

170 IF V2CV1 THEN X=X+V2*0X - V=V+V2*DV ^ DV 

=-DV:DRRUl 1 TO XA' = GO TO 150 

lOO X=X+V1*DX^ V=V+-V2*DV ^DRRW 1 TO X.V 

190 DX=-DX = DV="DV M30 TO 150 



Hdrom eset van : 

- fuggbleges fal - 1 60. sor 

- vizszintes fat - 1 70. sor 

- mirdkettd egy&zerre {s^rok) - 1 80-1 90. fiCirojc 

XI yi jfilem^se is megv^llozoti, a leggtbbbi visszaverbd65 haMt 
muiaijSk^ Ez a pfogram m^r m^Hb a finarn gtiifiKAfaJ A Tov^bbf 
gyoFsftis mSr os^i^fugg els^ k6rd6BseL FigyeJiuk m«g. hogy bizo- 
nyos esetBkten egy iddm megszaksd a bolyong&s, majd a kiindul^ai 
pontbdl el]^inkez6 ifSnyba fofytstbdlk. Mikor lesz ilyen. 6fi va[bb3r 
„v6rakozik"-e iiyenkor a g6p? 





K6t esetet kell megkulonboztetnunk: 

- A mozg6 pont eljut valamelyik sarokba. llyenkor ugy verfidik vissza. 
hogy saj^t addigi nyom^n halad (vissza) a kiindul^sig, majd onnan 
ellenkez6 ir^nyba szalad. Hoi v6gz6dik ilyenkor a bolyong^s: melyik 
lesz az utols6nak kivil^gltott pont? 

- Nem megy sarokba a pont. Hogyan v^gzfidik ilyenkor a bolyongSs? 
Mit6l fugg, a k6t eset kozul melyik kovetkezik be? 

Pr6bdljuk agy ni6dosftani a programot, hogy ne dolgozzon 
hi^ba 1 Mindl kevesebb ponton haladjunk At tdbbszor t Ez igan 
sokf6lek6ppen oldhatd meg, mutatunk egy Iahet6s^et, da 
remdljQk az olvas^kt6l kapunk szellamesebbet isl (Az 5- 
160-e« sorok vdltozatlanul 6tvehat6k az Mz6 programb6ll} 



160 IF V1<:V£ THEN X=X+V1*DX - V=V+V1*DY = DF: 

RW 1 TO X.V:D><="0XM30 TO £0© 

170 IF V2CVI THEN X=X+V2*DX = V=V+VS:*DV = DV 

=-OY:DRRW I TO X.V=GO TO 200 

1S0 X=X-> V1*DX: V=V>V2*DV :DRftUI 1 TO X ..Y 

1 30 X=XX V=Y Y = DX=- 1 = 0 Y=- 1 = DD=DD+ 1 = DRflW 

l.X.Y GO TO 210 
200 IF XX =0 THEN XX=X = YY=Y = ELSE HH=1 
205 IF X=XX BND Y=YY FiHD HH=1 RND 00=8 T 
HEN END 

210 IF 00=2 THEN EHD 
220 GO TO 150 



200-220 sorokban vizsgAtjuk: abba leh*t-^ hagyri? 30& - sarofc 
^rlnt4sa hdyen vpssjsi^r 6nmag6ba. 210 - k^tszer voii ^arokbgn. 
A harmadfk k6fd^hB7 el6azDr pr6bai}ulc meg j^liemfizni hbrhX 
laUtens^g szemponij^bdlf A gvemkek ^fyenekat tognak java^olni: 
szAmoliuk meg a pontokat, mi I yen t^voi vannak egym^Btdl a pdr- 
huzamo^ok. h^ny mets^^SpdnT van stb. Jsvasoljuk azt n&kik. HgyeE- 
J§k meg- hogy hSnvszor 6ririii az oidalakat a botyorfcg^s. azaz egy 
szimp^r (X3, Y91 legyen a jeliemzfl rJos. ez vaion mt6\ fiigg, §s 
hoavart? Talfin lesz aki ^sarevesiL hogy &z oldalskkal (A, B) van 
kapcsolatban a dolog^ bogy hogyan .. 

Tovibbi ^gfts^g. ha oJdalakal fNPUT-tal ad|uk meg, 4e Igy m^r 
mi szabhatjyk meg. milyar t^glaiapor kis^rletezzunk. K^sz[tessurik 
llbliifatoi a tanuiakkal talfin mAr 4-6 prdhhikoz^^ ut^n szuJelik 
valamiiyen hasznos megfigyel^s. 

Mi az agzakt dsszefQggda? Telftatts^ szempontjAb6l van-a 
jalant6^e a kazdOpont magvAlaszt^atfnak? Erdomes algon- 
dofkodni azon, hogyan Jellemazhet6 pdldAul a metszdspontok 
szAma, vagy a kivil6gftott pontok szdma az eddigiakkel 
(A, B, X9, Y9)* Ezekra is vArunk vAlaszokat. 

2. feiadat. frjunk programot. mely tetszflleges x-f(x) fuggv^nyt 
^brdzol, s6X a gorb6t „optim^lisan" helyezi el a k^pernyCn! Sz^m- 
talan megold^s ismeretes, kdzlunk egy nem tul bonyolult vdltozatot: 



5 DIM Rc:i50> . ^ ^ . - ^ . ..... 

50 H-150 ■■ INPUT " INTERVRLLUM <:R/ B> ; R. B 

?0 DX=^B -R>/N^r'1R=FNF<:R> =HI=r'1R 

90 TRRP 309 

100 FOR 1=1 TO N 

1 1 fi R t' I .:' --FNF f". RH^ I *DX > ■ IF R < I > > MR THEN MR= 
fla> 

115 IF R < I .:■ CM I THEN M I =R <: I > 

120 NEXT I 

150 0 V = 1 90/ MR-M I > 

'?00 GRRPHIC 3. 1 

207 DRRN 1.5. t;R<: 1 y-Hl >*DY 

210 FOR 1=1 TO N 

22fl DRRW 1 TO 1+5 ^R-: I >-MI >*DY 
230 ^^E:^\T I 

299 EHD 

300 RESUME 120 



10-ben ad ha 16 meg a fuggvdny egysnlale, mig a scrban az 

ke[A. B1 drrelmej^^si tartom^nyt jelolfie^uk ki^ Fonlos, hogy az 
A ponlban vat6ban Jagyen 6rtelm<Mve a fuggv^ny - eseiunkben 
A bArmi lahfil -2, -1. 0, 1 kiv^tet^vel A tobbi (belsa) ponlra van 
v^delem a 90. 5orban. 100-1&0 sorokban az Y sz^lafl*ft^k«:i (MAx 
MIn) sagfit^g^vel beAllftjuk a fuggCleges E^pt^keL ma|d en nek 
abpiir Abr^zpliLk a m^r l^rglt ptsnlokat (A;i>-k)- DX H DY meg- 
hst^roz&sSt aulomaiikus norm^l^snak navezik. 
3- feiadat. Ha egy R = 100 sygam kort akarunk a k^perny^re raj- 
zolni. akkor has^n^lhaijtjk a kovetkeza daszefuggfest is: 
X = R^cos(t) y = R-*sin(t)- 



A^ Hyen megadSsI a gorb^k pa ram Uteres (implicii) egyanlel^nek 
nevezzLik, El6g annyit ludni r6l3. hogy a progfambari \ parameter les^ 
a ctkluE vAltQz6, fis a pontck x. y koorfilm^i^ii a fenli k^t 6&szefuggSa 
adja. M^g arf61 kell QOndos1<odrEunk. hogy & kor f^f^en el teijes eg^- 
s^^ben a TV-n, Slit min^J ..optirn^ti^ahban^' halyfi^zuk el. 



10 DEFFNX-: T> = 10O*COS<.T:' ■ DEFFNYt-.T > = 100*SI 
N(:T> 

50 N=15e = R=0 = B=2*-(T 

70 dt-<:b-r>/n 

200 GRRPHIC 1. 1 

207 DRRW 1 . FNX 0 > + 1 00 FNY <: 0 > + 1 00 
210 FOR T=R TO E STEP DT 
220 DRRN 1 TO 100+FNXf.T > . 100+FNYc:T > 
230 NEXT T 

Sok 6rdekes Sbr^t nyerhetunk, ha gondoskodunk a programban a 
megfeiel(5 elhelyez6sr(5L az automatikus normdIAsrdI (az X 6s Y 
t^kek kivdlaszt^sa). Param^teres megad^sn^l ez egy kicsit bonyo- 
luttabb, {6s lassabb is) mint az X'+f(x)'esetben. de n6mi topreng^s 
ut^n adddik: 



5 D T M x^ <: 200 ■;- 't* <: 200 > 

1 0 DEFFNX c; T > =COS ■:: T > ■■ DEF■F^r < T > "S I N < T 

5*-^ n=200 - input " inter vru...um <::r.s>";r.e 
70 dt=<B"R;'/n ^xr=fnx<:r> =xf=xr^ yr=fnv<r> = 

VF=VR 

90 TRRP 300 

■1 00 FOR T=R to B step DT 

iifH x-; n=FNX<;T> : IF xt:T>>xF then xf=x<;i> 

1^5 if X I <XR theh XR=X< I > 

120 'r'':' i:>=fnvc:t> = if Y'::i>:>vf then vf=y<i> 

125 IF Vi:iVCYR THEN YR=S't:i> 
1 :;0 1 = 1-+ 1 :NEXT T 

ISCH DX=^300/'::XF-XR> ^ nv = 190.-'<: YF -YR > 
200 GRRPHIC: 1 . 1 

207 DRRl'l 1 . Oi^. 1 >"XR>*DX. ':;Y<: 1 >"YR>*DY 
210 FOR 1=2 TO N-1 

221^ DPRu t TO <:xt:i/-XR>*nx i ^-yr^^dy 

230 HE'AT 1 



Ez a programunk m^r tuls^gosan is 6ndll6: p^ld^ul nem hajland6 kort 
rajzolni. K6rp6tl^sul n^h^ny 6rdekesebb egyenletet adunk meg, lehet 
gyonyorkodni. 



x=a*t/ (1+t^t*t) 
x=a*t^|tt/ (1+t*t) 
x=coa(t) * (1 +coa(t)) 
x=a^(t— b*«in(t)) 
x=a^coa3(t) 
x=cos(a*t) 



V=a*t*t/ (1+t*t*t) 
y=a^t*t/ (1+t*t) 
y=ain(t) ^ (1+co»(t)) 
V=a*(1— b*co8(t)) 
V=a«iin3(t) 
y=ain(b^t) 



- Daacartes-levAl 

- cisazoid 

- kardioid 

- cikloia 

- asztrois 

- Liaaajoux-gorbe 



U to Is 6 agyenlataink pontosan olyart problematik^hoz vezetnek. 
mint iamit az 1. feladstn^i gondoJtunk vSgfcg Az ^bra bonyoluhBigSi 
Idoyeg^ben ugyamigy befcjIyAsoJjdk most a b egyulthatdk. 
mini annak idej^n a t^glafap oldalai. Tov^bbi anal6gia. hogy mindk^t 
^bra hengeit^ rajzolva k^pzolhetfi Tgaz^n: p^lddul egy iobb oldali 
(feisO) hatdfponi slfibb-utdbb megjalantk haloldalt (alui) a t^gfa- 
lapon. Misk^nt fogalmazva; az 1. fefadatbeli botyongSs rul&jdonk^p- 
p3n egy hengef pal^sijSn tort^niL maid alkaSmas halyen felvSgva a 
pald^ol. ^ kiterltve adridSk a kTvfint tSglalap, 
A Llssaloux gorbdk fll. oszt^lyban fizikfiban szerepelnek. 



FdMfr Tana 




tIAHMlf ItChilltll aitlULIT 1)17 aiHCIUS 



M eggyesh^zi P6ter-Pint6r J6zsef: ZX 
Spectrum halad6knak - Muszaki Konyv- 
kiad6. 199. o . 78 Ft. 

(A S2erz6k rovjden ismertetik a Spectrum 
saj^toss^gait, a Z80 assembly haszn^lat^t, 
a ROM-programot, valamint a^ Interface 
1-et es a Microdive-ot. Ezut^n gazdag 
programkataldgust, valamint egy j6l hasz- 
n^lhat6 rutingyujtemeny-list^t kozolnek.) 

CI 6 6s Plus/4 programoz6i utmutat6 - 

Novotrade, 86. o., 129 Ft 
(A programoz^si k^zikonyv folytat^sa a 
BASIC alapismeretek dttekint^se ut^n a 
g^pi k(5du programoz^sba nyujt betekin- 
t^st. A kotetet szSmos, ]6\ haszn^lhatc5 fug- 
gel6k eg^sziti ki.) 

Grohmann-Eichler: A 68 000- es mikro- 
processzor - DATA BECKER - Novotrade. 
368. 0.. 349 Ft. 

{A konyv a Motorola mikroprocesszor-csa- 
lAdot mutatja be: ismerteti kifejleszt^s^nek 
tort^net^t, fel^pft^s^t, input-output jellem- 
z6it, utasft^sk^szlet^t. A kotet szerz6i kit^r- 
nek arra is, hogy a 68 000-es mennyiben t6r 
el a tobbi 16 bites processzort6[.) 

Sasse: Compiler - DATA BECKER - 
Novotrade. 350 o., 298 Ft. 
(A szerz(5 a programnyelveket forditb rend- 
szerek alapismereteibe vezeti be az olvas6t 
egy erre a celra kjfejiesztett programnyelv 
segits^g^vel. Megismerhet<5ek a lexik^lis, 
a szintaktikai 6s a szemantikai elemz6s sza- 
b^lyai, valamint az assembler n^h^ny sajci- 
tossSga.) 



I 



Tanulmanvok 



nformacidgazdasagrdt 



(SzerkesztO : Szab6 J6zsef ) ~ 

KSH-OMIKK. 234. o.. 260 Ft 
E\6z6 sz^munkban bemutattuk a Statisztikai 
Ktadd kotetet, mely a francia informatikai 
forradalommal, illetve annak gazdas^gi, tSr- 
sadalmi hatSsaivai foglalkozik. 
Az informatika kihfvSsa ugyanugy 6rezhet6 
Magyarorsz^gon is, mint b^rmely m^s or- 
sz^gban - ez^rt szervezett 1 9B5-ben a Koz- 
ponti Statisztikai Hivatal szeminSriumot az 
inform5ci6gazdasSgr6i. A szemin^riumra 
kdszult el6addsokb6l ad vdlogatdst a most 
megjelent kotet. 

A megrendezett konferencia frontSttor6snek 




nevezhetfi, hiszen elSzm^nyek n^lkuli v^l- 
lalkoz^s volt. Szerte a vil^gban tiz ^ve hatal- 
mas vit^t folytatnak a szakemberek az infor- 
matika gazdas^gi szerep6r6l, hat6s5r6l - er- 
r6l ezid^ig itthon nem vettunk tudom^st. 
Emiatt meg^rthetOk 6s elfogadhatdk a kotet 
gyermekbetegs^gei. Nem hib4ztathat6k a n^- 
pes szerz5g5rda tagjai amiatt, hogy szinte 
mindegyikuk az alapfogalmaktdl indul el, 
azokatmagyar^zza r6szletesen,6sennek alap- 
jSn 6pftj fel saj^t mondanival6j^t, - hiszen egy 
konferenci^n ez term^szetes. Az sem rdhatd 
fel nekik. hogy az egyes fogalmak definfci6i, 
meghat^roz^sai nem mindig egy^rtefmuek, 
nem mindig letisztultak - elv^gre egy most 
kjalakul6ban I^V(5 tudom^nydg r^szei. 
A nyelvezet is korulm^nyes n^hol, nehezen 
5tr5ghat(5. 

A szerz6k saj^t szakteruletuknek megfelel(5en 
fejtik ki tapasztalataikat kutat^si eredm^nyei- 
ket az inform5ci6ga2das^gr6l. fgy a leg- 
kulonb6z(5bb szakAgak k6pvisel5inek v6le- 
m6ny6t olvashatjuk, a politolbgiStbl a t4r- 
k6p6szetig. Mindegyikuk megpr(5b5lia adap- 



t^lni saj^t szakm^j^ban a kulfoldi eredrn^- 
nyeket, Ez 6rthet6 ^ll^spont - de a konyvbfil 
nem sug^rzik egys^ges szeml6letm6d. 
Heterog6n a kotet, 6s a szerkesztG nagy 6r- 
deme, hogy az emiftett hib^k ellen6re egy- 
huzamban v6g]golvashat6. 
Lemarad6sunk az informattkciban a fejiett 
orsz^gokhoz k6pest hatalmas. Hogy mennyi, 
arr6l elter a szerzfik velem6nye (10-20-30 
6v), de az egy6rtelmuen kiderul hogy n6h^ny 
mutat6 szerint a fejifidfi ors^^gokkal vagyunk 
egy szinten. A kozgazd^szok sz^m^ra ha- 
talmas felki^ltdjel lehet ez a kotet, hiszen a 
reformelk6pzel6sekben is csak huszadrangu 
t6nyez6k6nt kap szerepet az informatika - 
mostan^ig nem jottOnk rS, hogy ez minden- 
hof hijz6ipar6g. 

Tal^n napjainkban 6brednek r^ mind tobb 
helyen az informatikai kutat^sok szerep6re 
- 6s ez is al^huzza a kotet fontoss^g^t ~, 
hiszen egyre tobb v6llalat, int6zm6ny k^r 
fel szakembereket annak vizsg^lat6ra, hogy 
egy-egy tervezett informatikai fejleszt^snek 
milyen eredm6nyei, hatAsal v^rhatbak. S a 
hat^sok aJatt nem csak a gazdas6gi eredm^- 
nyeket kell 6rtenunk, hanem azt is. hogy a 
fejleszt6s nyilvcinval6an befoly^solja az 
adott vcillalat szerkezet6t is. Itt kell megemll- 
tenunk a kotet egy mSsik fogyat6koss4gSt: 
a tanulm^nyok szerzSinek legtobbje erSsen 
technokrata szemszogb6l elemzi a bekdvet- 
kezett 6s a v^rhat6 v^ltoz^sokat. Hi6nyzik a 
t^rsadalomtudom^nyi, a szocioldgiai meg- 
k6zeHt6s, pedig minden forradalmi jelentfi- 
s6gu ipari megujhod^s eset6ben nyilv^n- 
val6, hogy a technol6gia nem eldid6z(5je a 
forradalomnak, hanem csup^n (?) kitelje- 
sed6se. Az ossze^llft6sban olvashatunk 
ugyan erre vonatkoz6 utal^sokat, de annak 
elemz6s6re, hogy az informatika magyar- 
orsz^gi elterjed6s6nek mik a t^rsadalmi elfi- 
felt6telei, nem v^llalkozik egyik szerz(5 sem. 
A kotet mindenesetre kls^rletet tett az infer- 
m^cl6gazdas6g fogalm^nak tiszt6z4s6ra. Nem 
biztos, hogy a tanulm^nyokbcSI leszOrhetfi 
definfcid mindenben helyt5ll6, de konzisz- 
tens, ellentmond^smentes eg6szet k6pez. 
Levonhat6 az a kovetkeztet6s is, hogy 6get6 
szuks6g van orsz^gos, cltfogd informici6s 
politika kidolgoz^s^ra. fgy a konyv nemcsak 
a kozgazd^szok, a gazdasfigi vezetCk sz3- 
m^ra lehet fontos 6s hasznos olvasm^ny. 
hanem a tdrsadalomtudbsok, a politik^val 
fogla!koz6 szakemberek sz^m^ra is - s6x 
oktatdsi c6lokra is aj^nlhatd. 
Az els6 kfs6rletet nyitvinvaldan tov^bbi ku- 
tatSsoknak kell kovetniuk, de m6r ez a kotet 
is figyelemfelkeltfl 6s gondolat^bresztfi. 



Ai efmuft nydron &i NSZK-b&n v&t- 
ferrt egy uf sorOtatO C64^et. Ax ei- 
adok efmofiiitAk, hogy d r4gi tfpus- 

GEOS megf^te. Mi 3 GBOSf^ 

Mire Idhet b^^t/tAini? Hogy tehet 

ftwkod^sbs hozni? 

Htesz Gabor 

- B6f^ Sinbadsag u. 4B. 

A GEOS egy uj rendszer program s 
C64-he7: C^n kellett, tiogy kapjon a 
gepihcE eg^Y l^m^Tt «gy kis 
ha&^n^latij Ii1mu1at6t. Eaten a lem«- 
zen van a GEOS. ha ezt betolti egy 
alapvetden mi^ refids?erben tiasz- 
nitbatj;a a 9^pet joystick vagy eg^r 
fi^Usegev^l. A lema^en a randszor- 
ben irott ket komolyabb f alhaszn^loi 
programot is taidh a GEOPAIIMT-ei 
es 4 GEOWRlTE-ot. Etdbtsi egy ki- 
tune rajzold. utdtjbl egy szdvegszer- 
kesjtD-^fetes^g. Kogy ezekot a prog- 
raTTiokat agy^ltal^n mag at a rend- 
szerl hogyan kell h^szH^Ini^ azt a 
haaznilatiiitmutatobbltudb^tjamag. 
Mlvel eft on nyllvdn n^metiil kapia 
meg a g^p^hez. tdlhlvjuk a figyel- 
met^ hagy az Or&zagos Cf>mmodore 
Egy&sulet C-ujs4gjdban a janu^ri 
azSmmal k^zctddcen £or ozatban kdz- 
!ilt a GiOS roviditett magyar nyel- 
vO hassLtialBCS tJitiriutatdjat. ( A lapot 
8z frgyesulet tagjai kaphatj^k, s hogy 
hogy leher on is az agyesiilet tagjan 
^tt tobbak k^r^sere az al^bbikban. 
kazaJjQkO 



Minthogy ta^b«n k^rdszlk tDf^nk h«gy| 
I lUfBl ^fl otdalaB hairOFilB m«iajelAnS Commo- 
■bh« l»« k«H l^pnl Ei|y«itil«tb«. 



UflMEkt A* ^ttdgot, *0v v«#V kilt iOl 

Ifdrlfitfl* visArliftI tlk«tt*l. (lor tahit ■ 
IdJf nuyobbik r««» vI«mt«riH.) 

lp4fiikOMi6 onkktMt 0« al«bbi dcnvi kill rilml 
I (nMCaak * ciiHfrrt rubilkAb#^ Kun^rrt 9 c*9kh 

Cmnmodpra i4y*«ai«t - OTP BudafHAt 
htlll., VlBAgrMI u, 7/b. MMB 217-S«291, 
OTP HS-3«10 
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PLUSZ4 NVERO 2. FELAPATAWAK 



MEGOLDASA 



Helyhidny miatt csak egy vAzlatos megolddat k6zlUnk. K5nnya volt «szrevenni, 
hogy a tulajdonkdppeni strat6gia a H mdtrixban van eltdrolva. A H m^rix Igy 
ntfz ki ; 

A HI, } tomb DIM H ( 6,33 ) 
0 1 2 3 4 5 6 7 8 9 10 11 12 13 K 15 16 17 18 19 20 21 22 23 2k 25 26 27 2 8 29 30 31 3 2 33 
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Az oszlopszdm az dllds sorszdm6t je- 
lenti, a kovetkezdket figyelembe v^ve: 
Az ^ll^sokat els6 I6p6sben csak a vaddszok 
helyzete alapjin kulonboztetjuk meg. K§t 
ill^st azonosnak tekintunk, ha a 4 vaddsz 
ugyanabban a konfigurdcidban. vagy annak 
tiikork^p^ben van. Az ^^ugyanabban a kon- 
figurdcidban" magdban foglaija a bal sz^lt6l 
vald tdvolsdgokat, de az egSsz konfigurdcid- 
nak a tdbia aljdtai vett tdvolsSgSt nem. Jgy, 
ha a 4 vad^sz alulrdi a 2, sorban van, az 
tukork^pe a kiindul6 Sll^snak, ha a 3<ban, 
az azonos vele. 

Egy dlISs aldtrSsSnak azi nevezzuk. ha a nyijl 
pom azon a pozfoidn ^IL ahovd valam^fysk 
ved^si fippen l^pnl szefetne. A nyOt tobbi 
hetyzflte ^zarint nam kulonbdjTtetijnk meg. 
Egy menet kozban kiaCakuld vaddsi-kon- 
fhgurdcfdt i3gy jeli«mftzhfliunk, hogy meg- 
adjukmelyik alap-konfigut^ci6nak fefet meg, 
annak liiikork^pe, vagy nam s hogv a Iflfl- 
alsd vad^sz alulrdi hdnyadik sorban dll. 
A H matrix drtelmezdse: 1-2. sor annak 
a vaddsznak a relativ koordinStir, mellyel 
l^pni szeretne a g6p. Az els6 koordindt^hoz 
hozziadva a legalsd vaddsz helySnek sor- 
koordindtdjSt a mdsodikat pedig 7-bdl ki- 
vonva, ha tiikork^prfil van sz6, megkapjuk 
az illetS vad^sz abszoli^t koordinStdit (mind- 
kettC: O-tdl 7-ig terjedhet). A 3. sor a klvdnt 
ISpds irfinyfit adja meg: 1 - jobbra. 2 - balra 
tukdrkdp dllds eset^n persze fordltva. 
A 4. sor adja meg, hogy ezt I6pve h^nyas 
dlldsba jutunk, ill. 0, ha ezt I6pve a vaddsz 
nyer, az 5. 6s 6. pedig azt hogy hov6 kerul 
a vaddsz, de ezt csak abban az esetben. ha 

3 

^1 ^1^1 



Iehets6ges, hogy a nyul ott dll. Ebben az 
esetben l^p^skor a megfelel6 aldlldst keli 
tekinteni, melynek sorszdma mindig 1 ^gyel 
nagyobb az St Ids sorszSmdndl. Eszrev^tel: 
az aldlldsoknak nines alilldsuk, hiszen ide 
csak ugy kerulhetOnk, ha tudjuk, hogy a 
nyul az eredeti dllds ugynevezett 6rz6keny 
pontjdn ^W, s az alSlldsban mindig ennek 
megfetelSen mdshovd pr6bdlunk l^pni. A jd- 
t6k az 1 -es dlldsbdl indul s az 1. dbra szerint 
folyhat le: a rendes nyil jelenti azt hogy azt 
l^ptuk, amit szerettunk volna, a szaggatott 
nyfl azt hogy az 6rz6keny ponton dll a nyi3l, 
[gy az aldllds szerint kell I6pni. Azt kell m6g 
megndznunk, hogy mi6rt nines minden 51- 
Idsnak aldllisa? 9 Sll^snak nines alSlldsa, 
ezek: 15, 16, 19, 26, 27, 28, 29, 30, 33. A 
magyardzat az, hogy ezek ugy alakulhatnak 
csak ki, ha n^h^ny Idpdssel hamarabb a 
nyOI az akkori dllds grzdkeny pontjdn dllt 
igy kisz5mfthat6, hogy az az6ta eltelt I6p6sei 
alatt milyen messze juthatott. Ha az dll^s 
drz^keny pontjdt semmik^pp sem 6rhette el, 
akkor nines szuks^g al^lt^sra. Ez mind a 9 
esetben etlen5rizhetd az 1. dbra segitsd- 
gdvel, csak fel ketl rajzolni az egyes dll^s- 
sorsz^mokhoz tartoz6 Sbr^kat Ezt a 21 4b- 
rdt hely hijdn nem tudjuk kozdini. Az eddi- 
gieket elfogadva a stratdgia mGk6d6k6pes- 
s6ge konnyen Idthat6. ugyanis pi. az el5bb 
emiltett m6don minden ditishoz hozzd- 
rendelhetS a nyCil osszes lehets^ges helyzete, 
5 Ijthat6, hogy a nyOI sose tud a vaddszok 
mogd keruini. fgy a jdt6k csakis a vadtiszok 
gy6zelmdve1 6rhet v4get (csak 8 sor 

van I) 

ii 




Tobfaen kerdeztek lolii nk^ hogy ho- 
gyan lehetne hozz^jutnt lapunk de- 
comberi &jLjmdban csak egy fotd 
erejdig b^mutatott Szarka Qyorgy 
Tibor Miklo^^Kal k^s^itett, s leg- 
jobbnak mino^ltett Vadasz ^% a nvi:i1 
cimG j^tekprogramlioz. Nos regi 
szokSaunk, hogy olvaa^inkat, pJine 
meg programozb baf Atainkat szlvs- 
sen tisszehozzuk egy missal. (LMhat- 
jftk. hogy hac^ak kij*6n nam k^ri va- 
laki ennek az allenkezojet. rendre k^- 
Eoljgk ^arzoink lakSsctmet is,) ;me 
iflhSt Tthor Mikl6s cJma is. De a vfi^ 
laszra vSrdk legyenek turaJemmal, 
mart szegeny e pillanatbaii elofal- 
veteJi« litf^n sorkatonai szolgStatdt 
taiti A cFm: Tihor Miklds - 1181 
Budapesi, Varoahfa u. 31. 



gEpnyerO 

£RT£KEL£SE 



doro Piu^ 4-H q^mt Szilvdsl IVlargtt^ 

nyen Kru£»ti€X Faf^nc, Tc-t/i-imhris, 1000 
for Into a vasirLlsl iitalvdnyt S£ab6 Zof- 
tin Tibor^ BiiLlcip^iMl. S0O-&(lO forlntoa 
iitAlvinyt; 

Tlnkd Attita, Ei>jdEip^5t 
Kov^fe Gilbor, V6c 
Kuriisa Arpddf Szeged 
HorvAtfi P^«r^ Budspesl 

FMtiriri Csongor, Budaptfft 



A HARMADG£PNYER5 £RT£KELESE 



Mindh^ronn feladatra csak 20 p^lv^z6nk kuldott be megold^st. Az e\s6 feladat el6g konnyunek 
bizonyult, bdr 1-2 r^szfeladatot sokan eirontottak. A m^sodik sem volt annyira neh^z, mint 
gondoltuk, a mienkn^f egyszerubb megold^sok is ^rkeztek, Tbbben nem vett6k 6szre, hogy a 
17-es feladat visszavezethetfi-e a 16-osra, s igy kulon hosszan bizonyltott^k. A harmadik 
feladat r^z6sabbnak bizonyult. Ket to hiba: tobben nem vegezt^k el a l^p^ssz^mbecsl^st, 6s 
tbbben k6dol^sn^l is komoly algoritmus lep^seket vegeztettek szeg^ny k6dol6vai, r^ad^sul 
a k6dot6 algoritmusinak l^p^ssz^m^t ^Ital^ban nem becsult^k meg. 
A potencidMs nyertesek: 

2c6duldval: FAIdvdri Csongor, Budapest; SzabdZoltdn, Budapest; Bir6Gdbor, Kisv^rda, 
Voronnai Usz\6, Budapest; Morvai Lajos, Budapest; Solymosi Gydrgy Budapest; 
Pet^k Tamds, Szolnok 

1 c^duldval: Fekete Zoltdn, Szolnok; VeressZoltdn, Ijjfeh^rt6; AlmdssyZoltdn, Miskolc 
A sorsoldsra 1 987. dprilis 18-dn 10 6rakor keriil sor az Almdssy t^ri Szabadidff K5z- 
pont Compdnia szdmitdgdpes mOhely^ben. 

Figyolem \ MOIt havi szdmunkban tdvesen jelent meg a Quatroplus nyerO sorsolcisi 
idSpontja. Azt is ugyanebben az idOpontban sorsoljukT 

Amintaztmdra mult hdnapban beharangoztuk,hdrom h6napos pdly^zatot inditunk^ 
amelynek els6 dijdt a Sk^la Computer S hdl6zata ajdnlotta f6\. A nyerem^nydrt 
hdrom olyan feladatot kell megoldani, amelyek ugyan apr6 kis programok, de 
megoldhat6k 6s 6rt6kelhet6k g6p n^lkiil is. 

Nagyon k^rjuk az olvasbkat, hogy megolddsaikat ne kazettdn, lemezen kuldjdk 
bel EgyszerQen csak Irjdk le egy paplrra. 



iF:^ATARI 



NYERO 




1. FELADAT 



Az viszont drtelemszerQ, hogy a pdly^z6knak legaldbb alapfokon ismerni keU a 
BASIC nyetvet. 

Az elso feladat : egy g6p (pi. CMINS a neve) BASIC-je igen kev^s utasitdst ismer : 

- A PRINT, LET, INPUT, DIM 6s END utasitdsok a legtobb BASIC-hez hason16an 
mGkodnek. 

- Ismeri a GOTO K utasitdst, ahol K tetszoleges aritmetikai kifejez^s. Ha ilyen 
utasftdshoz kiszdmltja K drtdk^t, s ha van K sorszdmu sor, akkor oda ugrik, 
kuldnben hibdt jelez. 

- Ismeri a +, ^, /, t mOveleteket 6s a ;:-releici6kat, melyeket 
muveletnek tekint, s az eredm^ny -1, ha a re\^c\6 fenn^ll, s 0, ha nem. Precedencia 
(elsobbs^gi) sorrend: 

1 : t 2: ^/ 3: +, - 

Azonos „er5ssdgG" mOveleteket balr6l jobbra v6gez el. 
Zdr6jelez6s lehets^ges. 

- Ismeri a BASIC alapfuggv^nyeit: 

ABS, ATN, C0$, EXP, INT, LOG, SGN, SIN, SOR 

- Tud kezelnl strlngeket, stringek kozott 6rtelmes a + mGvelet (konkaten6ci6) 6s 
az >rel6ci6k. Ismeri az IN KEY $ fuggvenyt is. 

-1 sorba 1 utasltds frhat6 1 

Irjunk ebben a BASIC-ben (tehdt csak a felsorolt utasltdsok haszndlhatdk) egy 
programot, mely a kovetkezoket tudja: 

Bek6rdezi N 6rt6k6t, ellenSrzi, hogy pozitiv eg6sz szdm e. Ha nem, akkor ujra k6r- 
dez. 

Ezut^n sorban bek6rdez N db szdmot, majd ezeket sorbarendezve (novekvd sor- 
rendben) kifrja. 

Ezut6n vdr egy tetsz5leges billentyO Ieut6s6re. 

(Akik az INKEY$-t nem ismern^k, lefrjuk hagyomdnyos BASIC-ben ennek meg- 
val6sit6s6t: 

100 Q$ = INKEY$ 

101 IF 0$=" "THEN GOTO 100.) 

- Ha ez a billentyO K, I vagy SPACE, akkor megvizsgdija, hogy a sorbarendez6skor 
kapott legkisebb sz6m pozitiv lO-n^l kisebb eg6sz szdm-e, (ha nem, ezt szoveggel 
jelzi I) ha igen, akkor kiirja a szdmot betGvel k6t nyelven, s megdil. 

- Ha a leutdtt billentyO m6s, elbucsuzik 6s meg6IL 

A programokat papiron k6rjuk bekuldeni, lehatoleg rovid magyardzattaL A rovi* 
debb, eleg6nsabb programok tobb pontot kapnakl 
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